From d2287ded099c3465669510bcff1d3984c486e677 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 25 Jun 1994 23:48:04 +0000 Subject: [PATCH] (mouse-scroll-subr): Don't do anything special at eob. (mouse-drag-region): Don't treat scrolling differently at eob. (mouse-drag-secondary): Likewise. --- lisp/mouse.el | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/lisp/mouse.el b/lisp/mouse.el index 4a3e1b17322..e2892dc4208 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -177,13 +177,13 @@ Upon exit, point is at the far edge of the newly visible text." (goto-char (window-start window))) (if overlay (move-overlay overlay start (point))) + (setq eobp (eobp)) ;; Now that we have scrolled WINDOW properly, ;; put point back where it was for the redisplay ;; so that we don't mess up the selected window. (or (eq window (selected-window)) (goto-char opoint)) - (if (not (eobp)) - (sit-for mouse-scroll-delay)))))) + (sit-for mouse-scroll-delay))))) (or (eq window (selected-window)) (goto-char opoint)))) @@ -247,8 +247,7 @@ release the mouse button. Otherwise, it does not." ((< mouse-row top) (mouse-scroll-subr start-window (- mouse-row top) mouse-drag-overlay start-point)) - ((and (not (eobp)) - (>= mouse-row bottom)) + ((>= mouse-row bottom) (mouse-scroll-subr start-window (1+ (- mouse-row bottom)) mouse-drag-overlay start-point))))))))) (if (consp event) @@ -643,8 +642,7 @@ This must be bound to a button-down mouse event." ((< mouse-row top) (mouse-scroll-subr start-window (- mouse-row top) mouse-secondary-overlay start-point)) - ((and (not (eobp)) - (>= mouse-row bottom)) + ((>= mouse-row bottom) (mouse-scroll-subr start-window (1+ (- mouse-row bottom)) mouse-secondary-overlay start-point))))))))) -- 2.39.5