From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 5 Apr 1994 00:49:58 +0000 (+0000)
Subject: (split-window-vertically): If size is negative, measure from bottom.
X-Git-Tag: emacs-19.34~9182
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ab94bf9f4c627ca4019c786cb6c995655308d789;p=emacs.git

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

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