From f1917c6f19b9386dfcd897d6aa7e001c101b05aa Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Sat, 29 Mar 2008 23:04:17 +0000 Subject: [PATCH] (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. --- lisp/ChangeLog | 9 +++++++++ lisp/cus-start.el | 5 ++--- 2 files changed, 11 insertions(+), 3 deletions(-) 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 + + * 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 * 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) -- 2.39.2