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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 384e15f758c7e8ae7c4483a27b362a7c6981a426..6e0b22c98356c177fbcab7e3bc788b6e81f44d2b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-07-25  Martin Rudalics  <rudalics@gmx.at>
+
+       * window.el (display-buffer): In display-buffer bind
+       split-window-keep-point to t, bug#14829.
+
 2013-07-25  Juanma Barranquero  <lekktu@gmail.com>
 
        * desktop.el: Rename internal "desktop-X" frame params to "desktop--X".

diff --git a/lisp/window.el b/lisp/window.el
index a2acd2a81b0ef768935ee76420ac421e7c14642a..86d93c0a9f6fbd4bf725bf0cc0721c886f7a223b 100644 (file)
--- 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))