From c65c168111503be21981c877bc64bd7a6bb37ca3 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 22 Oct 1990 03:36:55 +0000 Subject: [PATCH] *** empty log message *** --- lisp/window.el | 19 +++++++++++++++---- 1 file changed, 15 insertions(+), 4 deletions(-) diff --git a/lisp/window.el b/lisp/window.el index ce1c0e566c9..f16d8942824 100644 --- a/lisp/window.el +++ b/lisp/window.el @@ -43,11 +43,18 @@ even if it is active." (defun split-window-vertically (&optional arg) "Split current window into two windows, one above the other. -This window becomes the uppermost of the two, and gets -ARG lines. No arg means split equally." +The uppermost window gets ARG lines and the other gets the rest. +With no argument, split equally or close to it. +Both windows display the same buffer now current. +The new selected window is the one that the current value of point +appears in. + +The value of point can change if the text around point +is hidden by the new mode line." (interactive "P") (let ((old-w (selected-window)) - new-w bottom) + (old-point (point)) + new-w bottom switch) (setq new-w (split-window nil (and arg (prefix-numeric-value arg)))) (save-excursion (set-buffer (window-buffer)) @@ -59,7 +66,11 @@ ARG lines. No arg means split equally." (vertical-motion -1) (setq bottom (point))) (if (<= bottom (point)) - (set-window-point old-w (1- bottom))))) + (set-window-point old-w (1- bottom))) + (if (< (window-start new-w) old-point) + (progn + (set-window-point new-w old-point) + (select-window new-w))))) (defun split-window-horizontally (&optional arg) "Split current window into two windows side by side.