# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1206831819 0
# Node ID ba44d1d76296084da8418f59f164510796766b80
# Parent  33721f8a9b20e4a4eb26e7fef9e642bbbf072a1c
(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 -r 33721f8a9b20 -r ba44d1d76296 lisp/cus-start.el
--- a/lisp/cus-start.el	Sat Mar 29 23:03:18 2008 +0000
+++ b/lisp/cus-start.el	Sat Mar 29 23:03:39 2008 +0000
@@ -346,13 +346,12 @@
 	     (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)