Have display-buffer-at-bottom always create new window on bottom (Bug#15961).

* window.el (display-buffer-at-bottom): Make sure that
split-window-sensibly creates the new window on bottom
(Bug#15961).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7975d6eecbbc36a17c6e6c17684482f023500fd6..3955784c03b42981b3af80a77c4c339bb36f7035 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2013-11-25  Martin Rudalics  <rudalics@gmx.at>
+
+       * window.el (display-buffer-at-bottom): Make sure that
+       split-window-sensibly creates the new window on bottom
+       (Bug#15961).
+
 2013-11-23  David Kastrup  <dak@gnu.org>
 
        * vc/smerge-mode.el (smerge-ediff): Choose default buffer names based

diff --git a/lisp/window.el b/lisp/window.el
index ac9311b2dbf1074a3515d6b3b294a18bad32264f..f997d8b9027322971fdaafa9b25edf1b8e28cf45 100644 (file)
--- a/lisp/window.el
+++ b/lisp/window.el
@@ -5728,7 +5728,8 @@ of the selected frame."
     (walk-window-tree
      (lambda (window) (setq bottom-window window)) nil nil 'nomini)
     (or (and (not (frame-parameter nil 'unsplittable))
-            (setq window (window--try-to-split-window bottom-window alist))
+            (let (split-width-threshold)
+              (setq window (window--try-to-split-window bottom-window alist)))
             (window--display-buffer
              buffer window 'window alist display-buffer-mark-dedicated))
        (and (not (frame-parameter nil 'unsplittable))