diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2007-09-07 03:32:35 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2007-09-07 03:32:35 +0000 |
| commit | c8f1ea764e39183369781f158db8df137f807833 (patch) | |
| tree | 77961c506c0fe541f8a8a49d6a6e3358c76da8a1 /lisp/cus-start.el | |
| parent | 90ab5c624d57d119dff33a5b9ae65e3b0c661d59 (diff) | |
| download | emacs-c8f1ea764e39183369781f158db8df137f807833.tar.gz emacs-c8f1ea764e39183369781f158db8df137f807833.tar.bz2 emacs-c8f1ea764e39183369781f158db8df137f807833.zip | |
(split-window-preferred-function): Add custom info.
Diffstat (limited to 'lisp/cus-start.el')
| -rw-r--r-- | lisp/cus-start.el | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/lisp/cus-start.el b/lisp/cus-start.el index e2cb65c82c4..dd4a67812ca 100644 --- a/lisp/cus-start.el +++ b/lisp/cus-start.el @@ -342,6 +342,15 @@ since it could result in memory overflow and make Emacs crash." (even-window-heights windows boolean) (next-screen-context-lines windows integer) (split-height-threshold windows integer) + (split-window-preferred-function + windows + (choice (const :tag "vertically" split-window) + ;; 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))))) (window-min-height windows integer) (window-min-width windows integer) (scroll-preserve-screen-position @@ -464,5 +473,5 @@ since it could result in memory overflow and make Emacs crash." (unless purify-flag (provide 'cus-start)) -;;; arch-tag: 4502730d-bcb3-4f5e-99a3-a86f2d54af60 +;; arch-tag: 4502730d-bcb3-4f5e-99a3-a86f2d54af60 ;;; cus-start.el ends here |