Have display-buffer-below-selected never split window horizontally.

* window.el (display-buffer-below-selected): Never split window
horizontally.  Suggested by Juri Linkov <juri@jurta.org>.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8725bc401c5c5b2a8743bc5ecf471e1c5e8b1519..f1f1f45df91bdef684582bb7cc068ddf8839216c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-12-14  Martin Rudalics  <rudalics@gmx.at>
+
+       * window.el (display-buffer-below-selected): Never split window
+       horizontally.  Suggested by Juri Linkov <juri@jurta.org>.
+
 2013-12-14  Tom Willemse  <tom@ryuslash.org>  (tiny change)
 
        * emacs-lisp/package.el (package--prepare-dependencies): New function.

diff --git a/lisp/window.el b/lisp/window.el
index ba21dbc7bcc65a0be8bf25b99c12290b67c708bc..5ba2f8ac2b91c3b79d83dcb5a138ee211aae670d 100644 (file)
--- a/lisp/window.el
+++ b/lisp/window.el
@@ -6245,7 +6245,8 @@ This either splits the selected window or reuses the window below
 the selected one."
   (let (window)
     (or (and (not (frame-parameter nil 'unsplittable))
-            (setq window (window--try-to-split-window (selected-window) alist))
+            (let (split-width-threshold)
+              (setq window (window--try-to-split-window (selected-window) alist)))
             (window--display-buffer
              buffer window 'window alist display-buffer-mark-dedicated))
        (and (setq window (window-in-direction 'below))