[Emacs-diffs] trunk r113542: In display-buffer bind split-window-keep-point to t, bug#14829.

[Martin Rudalics]

------------------------------------------------------------
revno: 113542
revision-id: address@hidden
parent: address@hidden
committer: martin rudalics <address@hidden>
branch nick: trunk
timestamp: Thu 2013-07-25 11:58:27 +0200
message:
  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.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/window.el                 window.el-20091113204419-o5vbwnq5f7feedwu-94

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-07-25 09:24:26 +0000
+++ b/lisp/ChangeLog    2013-07-25 09:58:27 +0000
@@ -1,3 +1,8 @@
+2013-07-25  Martin Rudalics  <address@hidden>
+
+       * window.el (display-buffer): In display-buffer bind
+       split-window-keep-point to t, bug#14829.
+
 2013-07-25  Juanma Barranquero  <address@hidden>
 
        * desktop.el: Rename internal "desktop-X" frame params to "desktop--X".

=== modified file 'lisp/window.el'
--- a/lisp/window.el    2013-07-06 14:24:54 +0000
+++ b/lisp/window.el    2013-07-25 09:58:27 +0000
@@ -5470,6 +5470,9 @@
   (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))