mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +00:00
Code Issues Releases Activity

(split-window-vertically): If size is negative, measure from bottom.

Browse Source
This commit is contained in:
Karl Heuer 1994-04-05 00:49:58 +00:00
parent f8591023f2
commit ab94bf9f4c
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/window.el
View File

@ -83,6 +83,7 @@ This is convenient on slow terminals, but point can move strangely.")
(defun split-window-vertically (&optional arg)
"Split current window into two windows, one above the other.
The uppermost window gets ARG lines and the other gets the rest.
Negative arg means select the size of the lowermost window instead.
With no argument, split equally or close to it.
Both windows display the same buffer now current.
@ -98,8 +99,10 @@ new mode line."
(interactive "P")
(let ((old-w (selected-window))
(old-point (point))
(size (and arg (prefix-numeric-value arg)))
new-w bottom switch)
(setq new-w (split-window nil (and arg (prefix-numeric-value arg))))
(and size (< size 0) (setq size (+ (window-height) size)))
(setq new-w (split-window nil size))
(or split-window-keep-point
(progn
(save-excursion