Mercurial > emacs
changeset 84358:d2cda61c7c00
(split-window-preferred-function): Add custom info.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Fri, 07 Sep 2007 03:32:35 +0000 |
| parents | 7a92dcd56a24 |
| children | b651dc7c54ac |
| files | lisp/ChangeLog lisp/cus-start.el |
| diffstat | 2 files changed, 12 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Fri Sep 07 03:26:06 2007 +0000 +++ b/lisp/ChangeLog Fri Sep 07 03:32:35 2007 +0000 @@ -1,5 +1,7 @@ 2007-09-07 Stefan Monnier <monnier@iro.umontreal.ca> + * cus-start.el (split-window-preferred-function): Add custom info. + * calendar/holidays.el (holiday-list, calendar-check-holidays) (calendar-mark-holidays, calendar-list-holidays) (holiday-filter-visible-calendar): New names to clean up namespace.
--- a/lisp/cus-start.el Fri Sep 07 03:26:06 2007 +0000 +++ b/lisp/cus-start.el Fri Sep 07 03:32:35 2007 +0000 @@ -342,6 +342,15 @@ (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 @@ (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