From f47ad11b6b9db136d1fdbfdb4ac575d620d14597 Mon Sep 17 00:00:00 2001 From: Martin Rudalics Date: Thu, 25 Jul 2013 11:58:27 +0200 Subject: 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. --- lisp/window.el | 3 +++ 1 file changed, 3 insertions(+) (limited to 'lisp/window.el') 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)) -- cgit v1.2.3