diff options
| author | Martin Rudalics <[email protected]> | 2013-07-25 11:58:27 +0200 |
|---|---|---|
| committer | Martin Rudalics <[email protected]> | 2013-07-25 11:58:27 +0200 |
| commit | f47ad11b6b9db136d1fdbfdb4ac575d620d14597 (patch) | |
| tree | e2a74b2ad2cd87834dc420dc204babbfd18e7423 | |
| parent | f63ebeb54e453b3da139d3495eb2f1f59bab46c7 (diff) | |
In display-buffer bind split-window-keep-point to t, bug#14829.
* window.el (display-buffer): In display-buffer bind
split-window-keep-point to t, bug#14829.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/window.el | 3 |
2 files changed, 8 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 384e15f758..6e0b22c983 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2013-07-25 Martin Rudalics <[email protected]> + + * window.el (display-buffer): In display-buffer bind + split-window-keep-point to t, bug#14829. + 2013-07-25 Juanma Barranquero <[email protected]> * desktop.el: Rename internal "desktop-X" frame params to "desktop--X". diff --git a/lisp/window.el b/lisp/window.el index a2acd2a81b..86d93c0a9f 100644 --- a/lisp/window.el +++ b/lisp/window.el @@ -5470,6 +5470,9 @@ argument, ACTION is t." (let ((buffer (if (bufferp buffer-or-name) buffer-or-name (get-buffer buffer-or-name))) + ;; Make sure that when we split windows the old window keeps + ;; point, bug#14829. + (split-window-keep-point t) ;; Handle the old form of the first argument. (inhibit-same-window (and action (not (listp action))))) (unless (listp action) (setq action nil)) |