+ (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)))))