summaryrefslogtreecommitdiff
path: root/lisp/cus-start.el
diff options
context:
space:
mode:
authorJuri Linkov <juri@jurta.org>2008-03-29 23:04:17 +0000
committerJuri Linkov <juri@jurta.org>2008-03-29 23:04:17 +0000
commitf1917c6f19b9386dfcd897d6aa7e001c101b05aa (patch)
tree8544c2bac62076867b77d1c78f1f56c49220aeef /lisp/cus-start.el
parentb0b0ffa3f8460f9b63c0de606e73e4fd4ab816fc (diff)
downloademacs-f1917c6f19b9386dfcd897d6aa7e001c101b05aa.tar.gz
(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.
Diffstat (limited to 'lisp/cus-start.el')
-rw-r--r--lisp/cus-start.el5
1 files changed, 2 insertions, 3 deletions
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)