From ab94bf9f4c627ca4019c786cb6c995655308d789 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Tue, 5 Apr 1994 00:49:58 +0000 Subject: [PATCH] (split-window-vertically): If size is negative, measure from bottom. --- lisp/window.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/window.el b/lisp/window.el index 187d01d1cfa..57fadfd5701 100644 --- a/lisp/window.el +++ b/lisp/window.el @@ -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 -- 2.39.5