From: Martin Rudalics Date: Sat, 9 Aug 2014 16:50:13 +0000 (+0200) Subject: In display-buffer-below-selected reuse window below selected if it shows buffer alrea... X-Git-Tag: emacs-24.3.93~10 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=02e0530477b2c2fc9a4c5ff05db4ec4555b272dc;p=emacs.git In display-buffer-below-selected reuse window below selected if it shows buffer already (Bug#18181). * window.el (display-buffer-below-selected): Restore original behavior if buffer is already displayed in the window below the selected one (Bug#18181). --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0b8c538a336..91a6e41860f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2014-08-09 Martin Rudalics + + * window.el (display-buffer-below-selected): Restore original + behavior if buffer is already displayed in the window below the + selected one (Bug#18181). + 2014-08-08 Stefan Monnier * mouse.el (mouse--down-1-maybe-follows-link): Don't convert the down diff --git a/lisp/window.el b/lisp/window.el index c771f01707e..09fe52dee88 100644 --- a/lisp/window.el +++ b/lisp/window.el @@ -6373,7 +6373,10 @@ again with `display-buffer-pop-up-window'." This either splits the selected window or reuses the window below the selected one." (let (window) - (or (and (not (frame-parameter nil 'unsplittable)) + (or (and (setq window (window-in-direction 'below)) + (eq buffer (window-buffer window)) + (window--display-buffer buffer window 'reuse alist)) + (and (not (frame-parameter nil 'unsplittable)) (let ((split-height-threshold 0) split-width-threshold) (setq window (window--try-to-split-window (selected-window) alist)))