Normalize SIDE argument of split-window (Bug#8916).

* window.el (split-window): Normalize SIDE argument (Bug#8916).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e5c2e2ad6288bdb4144bba15609262d5b25b214c..0c72fbf47dbf9e1f9143428fcaf2c7de600d8f3f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -8,6 +8,7 @@
        * window.el (display-buffer-default-specifiers)
        (display-buffer-alist): Remove entries for pop-up-frame-alist.
        Suggested by Katsumi Yamaoka <yamaoka@jpl.org>.
+       (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):

diff --git a/lisp/window.el b/lisp/window.el
index 1c347c7006776476a8d1f2d4cb95fffc75cde3ee..ac43fe7703c7462e2c6c90ef0b4d18768a2751cd 100644 (file)
--- a/lisp/window.el
+++ b/lisp/window.el
@@ -3014,7 +3014,11 @@ new window are inherited from the window selected on WINDOW's
 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))