changeset 21176:c42a2b3bbb21

(mouse-scroll-subr): Handle if window-end returns nil.
author Richard M. Stallman <rms@gnu.org>
date Sat, 14 Mar 1998 08:20:37 +0000
parents e260c4389363
children 73f8ae8312c8
files lisp/mouse.el
diffstat 1 files changed, 7 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mouse.el	Sat Mar 14 08:19:27 1998 +0000
+++ b/lisp/mouse.el	Sat Mar 14 08:20:37 1998 +0000
@@ -478,11 +478,13 @@
 		 (progn
 		   (set-window-start window (point))
 		   (if (natnump jump)
-		       (progn
-			 (goto-char (window-end window))
-			 ;; window-end doesn't reflect the window's new
-			 ;; start position until the next redisplay.  Hurrah.
-			 (vertical-motion (1- jump) window))
+		       (if (window-end window)
+			   (progn
+			     (goto-char (window-end window))
+			     ;; window-end doesn't reflect the window's new
+			     ;; start position until the next redisplay.
+			     (vertical-motion (1- jump) window))
+			 (vertical-motion (- (window-height window) 2)))
 		     (goto-char (window-start window)))
 		   (if overlay
 		       (move-overlay overlay start (point)))