andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(split-window-preferred-horizontally): New function.

Browse source
This commit is contained in:
Juri Linkov 2008-03-29 23:03:18 +00:00
parent d47a29c1e1
commit b0b0ffa3f8
1 changed files with 37 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

37
lisp/window.el
View file

@ -614,6 +614,43 @@ The return value is the new, rightmost window."
(setq size (+ (window-width) size)))
(split-window-save-restore-data (split-window nil size t) old-w)))
(defun split-window-preferred-horizontally (window)
"Split WINDOW horizontally or select an appropriate existing window.
It is called by `display-buffer' to split windows horizontally
when the option `split-window-preferred-function' is set to \"horizontally\".
This function tries to match the implementation of vertical splitting
in `display-buffer' as close as possible but with the logic of
horizontal splitting. It returns a new window or an appropriate
existing window if splitting is not eligible."
(interactive)
;; If the largest window is wide enough, eligible for splitting,
;; and the only window, split it horizontally.
(if (and window
(not (frame-parameter (window-frame window) 'unsplittable))
(one-window-p (window-frame window))
(>= (window-width window) (* 2 window-min-width)))
(split-window window nil t)
;; Otherwise, if the LRU window is wide enough, eligible for
;; splitting and selected or the only window, split it horizontally.
(setq window (get-lru-window nil t))
(if (and window
(not (frame-parameter (window-frame window) 'unsplittable))
(or (eq window (selected-window))
(one-window-p (window-frame window)))
(>= (window-width window) (* 2 window-min-width)))
(split-window window nil t)
;; Otherwise, if get-lru-window returns nil, try other approaches.
(or
(get-lru-window nil nil)
;; Try visible frames first.
(get-buffer-window (current-buffer) 'visible)
(get-largest-window 'visible)
;; If that didn't work, try iconified frames.
(get-buffer-window (current-buffer) 0)
(get-largest-window 0)
;; As a last resort, make a new frame.
(frame-selected-window (funcall pop-up-frame-function))))))
(defun set-window-text-height (window height)
"Sets the height in lines of the text display area of WINDOW to HEIGHT.