(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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1386e1e3d804445ebea017a3bcba9286f399a9e6..9f191d390adca7823c08de4be34f7d33f9fbe372 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+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

diff --git a/lisp/cus-start.el b/lisp/cus-start.el
index 91dc9087047a024b93958113e8be644d1eec4f03..f6d4a03563c8d87bee6732e4940a43704ddde67b 100644 (file)
--- 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)