Mercurial > emacs

changeset 8064:d04a39ce4f1d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mouse-scroll-subr): Don't do anything special at eob. (mouse-drag-region): Don't treat scrolling differently at eob. (mouse-drag-secondary): Likewise.
author Richard M. Stallman <rms@gnu.org>
date Sat, 25 Jun 1994 23:48:04 +0000
parents 30861f2f4f84
children 31eb7a0e2763
files lisp/mouse.el
diffstat 1 files changed, 4 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mouse.el	Sat Jun 25 22:35:28 1994 +0000
+++ b/lisp/mouse.el	Sat Jun 25 23:48:04 1994 +0000
@@ -177,13 +177,13 @@
 		     (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 @@
 		 ((< 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 @@
                    ((< 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)))))))))