[Emacs-diffs] /srv/bzr/emacs/trunk r104671: Normalize SIDE argument of split-window (Bug#8916).

[martin rudalics]

------------------------------------------------------------
revno: 104671
committer: martin rudalics <address@hidden>
branch nick: trunk
timestamp: Wed 2011-06-22 11:23:31 +0200
message:
  Normalize SIDE argument of split-window (Bug#8916).
  
  * window.el (split-window): Normalize SIDE argument (Bug#8916).
modified:
  lisp/ChangeLog
  lisp/window.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-06-22 09:13:50 +0000
+++ b/lisp/ChangeLog    2011-06-22 09:23:31 +0000
@@ -8,6 +8,7 @@
        * window.el (display-buffer-default-specifiers)
        (display-buffer-alist): Remove entries for pop-up-frame-alist.
        Suggested by Katsumi Yamaoka <address@hidden>.
+       (split-window): Normalize SIDE argument (Bug#8916).
 
        * frame.el (pop-up-frame-alist, pop-up-frame-function)
        (special-display-frame-alist, special-display-popup-frame):

=== modified file 'lisp/window.el'
--- a/lisp/window.el    2011-06-22 07:12:18 +0000
+++ b/lisp/window.el    2011-06-22 09:23:31 +0000
@@ -3014,7 +3014,11 @@
 frame.  The selected window is not changed by this function."
   (interactive "i")
   (setq window (normalize-any-window window))
-  (let* ((horizontal (not (memq side '(nil below above))))
+  (let* ((side (cond
+               ((not side) 'below)
+               ((memq side '(below above right left)) side)
+               (t 'right)))
+        (horizontal (not (memq side '(nil below above))))
         (frame (window-frame window))
         (parent (window-parent window))
         (function (window-parameter window 'split-window))