# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1189135955 0
# Node ID d2cda61c7c00355e76d835676c511cd3e7efb27a
# Parent  7a92dcd56a24b1b61cad502a54767b024c8d2e3e
(split-window-preferred-function): Add custom info.

diff -r 7a92dcd56a24 -r d2cda61c7c00 lisp/ChangeLog
--- 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.
diff -r 7a92dcd56a24 -r d2cda61c7c00 lisp/cus-start.el
--- 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