From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 31 May 1995 19:39:24 +0000 (+0000)
Subject: (scroll-bar-drag): Call scroll-bar-drag-1
X-Git-Tag: emacs-19.34~3818
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6538766ad9352d1410a0196e5e041c8d81d07e75;p=emacs.git

(scroll-bar-drag): Call scroll-bar-drag-1
inside the let.
---

diff --git a/lisp/scroll-bar.el b/lisp/scroll-bar.el
index 4193241e6ff..ca7d14532ee 100644
--- a/lisp/scroll-bar.el
+++ b/lisp/scroll-bar.el
@@ -136,8 +136,9 @@ If you click outside the slider, the window scrolls to bring the slider there."
 	 (echo-keystrokes 0))
     (or point-before-scroll
 	(setq point-before-scroll (point)))
-    (scroll-bar-drag-1 event)
+    ;; Our scrolling can move point; don't let that clear point-before-scroll.
     (let (point-before-scroll)
+      (scroll-bar-drag-1 event)
       (track-mouse
 	(while (not done)
 	  (setq event (read-event))
@@ -147,7 +148,8 @@ If you click outside the slider, the window scrolls to bring the slider there."
 		 (scroll-bar-drag-1 event))
 		(t
 		 ;; Exit when we get the drag event; ignore that event.
-		 (setq done t))))))))
+		 (setq done t)))))
+      (sit-for 0))))
 
 (defun scroll-bar-scroll-down (event)
   "Scroll the window's top line down to the location of the scroll bar click.