From: Juri Linkov <juri@jurta.org>
Date: Sat, 29 Mar 2008 23:04:17 +0000 (+0000)
Subject: (split-window-preferred-function):
X-Git-Tag: emacs-pretest-23.0.90~6780
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f1917c6f19b9386dfcd897d6aa7e001c101b05aa;p=emacs.git

(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 1386e1e3d80..9f191d390ad 100644
--- 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 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)