Mercurial > emacs

changeset 93405:ba44d1d76296

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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.
author Juri Linkov <juri@jurta.org>
date Sat, 29 Mar 2008 23:03:39 +0000
parents 33721f8a9b20
children 2428ecdc8ca0
files lisp/cus-start.el
diffstat 1 files changed, 2 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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)