(split-window-preferred-function):

Set choice for "vertically" to nil instead of split-window.
Set choice for "horizontally" to split-window-preferred-horizontally
instead of lambda.

2 files changed, 11 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1386e1e3d80..9f191d390ad 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,14 @@
 2008-03-29  Juri Linkov  <juri@jurta.org>
 
+        * window.el (split-window-preferred-horizontally): New function.
+
+        * cus-start.el (split-window-preferred-function):
+        Set choice for "vertically" to nil instead of split-window.
+        Set choice for "horizontally" to split-window-preferred-horizontally
+        instead of lambda.
+
+2008-03-29  Juri Linkov  <juri@jurta.org>
+
         * simple.el (minibuffer-default-add-function): New variable with
         the default to minibuffer-default-add-completions.
         (minibuffer-default-add-done): New variable.  Make it buffer-local.
diff --git a/lisp/cus-start.el b/lisp/cus-start.el
index 91dc9087047..f6d4a03563c 100644
--- a/lisp/cus-start.el
+++ b/lisp/cus-start.el
@@ -346,13 +346,12 @@ since it could result in memory overflow and make Emacs crash."
              (split-height-threshold windows integer)
              (split-window-preferred-function
               windows
-              (choice (const :tag "vertically" split-window)
+              (choice (const :tag "vertically" nil)
                       ;; FIXME: Add `sensibly' which chooses between
                       ;; vertical or horizontal splits depending on the size
                       ;; and shape of the window.
                       (const :tag "horizontally"
-                             (lambda (window)
-                               (split-window window nil 'horiz))))
+                             split-window-preferred-horizontally))
               "23.1")
              (window-min-height windows integer)
              (window-min-width windows integer)