[Emacs-diffs] trunk r115229: Have display-buffer-at-bottom always create new window on bottom (Bug#15961).

[Martin Rudalics]

------------------------------------------------------------
revno: 115229
revision-id: address@hidden
parent: address@hidden
committer: martin rudalics <address@hidden>
branch nick: trunk
timestamp: Mon 2013-11-25 17:30:01 +0100
message:
  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).
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/window.el                 window.el-20091113204419-o5vbwnq5f7feedwu-94

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-11-25 15:40:31 +0000
+++ b/lisp/ChangeLog    2013-11-25 16:30:01 +0000
@@ -1,3 +1,9 @@
+2013-11-25  Martin Rudalics  <address@hidden>
+
+       * 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  <address@hidden>
 
        * vc/smerge-mode.el (smerge-ediff): Choose default buffer names based

=== modified file 'lisp/window.el'
--- a/lisp/window.el    2013-11-20 02:44:38 +0000
+++ b/lisp/window.el    2013-11-25 16:30:01 +0000
@@ -5728,7 +5728,8 @@
     (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))