# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 772588084 0
# Node ID d04a39ce4f1dd34ecc950789254ef51f4c03d41b
# Parent  30861f2f4f84199cb40ae0aa7df0ae9e9599bca7
(mouse-scroll-subr): Don't do anything special at eob.
(mouse-drag-region): Don't treat scrolling differently at eob.
(mouse-drag-secondary): Likewise.

diff -r 30861f2f4f84 -r d04a39ce4f1d lisp/mouse.el
--- 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)))))))))