mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-24 10:38:38 +00:00
Code Issues Releases Activity

(split-window-preferred-function):

Browse Source 
Set choice for "vertically" to nil instead of split-window.
Set choice for "horizontally" to split-window-preferred-horizontally
instead of lambda.
This commit is contained in:
Juri Linkov 2008-03-29 23:04:17 +00:00
parent b0b0ffa3f8
commit f1917c6f19
2 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/ChangeLog
View File

@ -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

5
lisp/cus-start.el
View File

@ -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)