In display-buffer-below-selected reuse window below selected if it shows buffer alrea...

* 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 0b8c538a336d3a75fea2d09e99972427580a9069..91a6e41860f412c5ea6c836ebf10021cee3d7809 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2014-08-09  Martin Rudalics  <rudalics@gmx.at>
+
+       * 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  <monnier@iro.umontreal.ca>
 
        * mouse.el (mouse--down-1-maybe-follows-link): Don't convert the down

diff --git a/lisp/window.el b/lisp/window.el
index c771f01707ea17a5791e8037160eca984a7973e8..09fe52dee886e9fa11d6080579464b97017f00fd 100644 (file)
--- 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)))