# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 801949164 0
# Node ID e293764039a582fef2176f12c8a80940050d7954
# Parent  a755246890228a73191b23b71d057e377ce538b9
(scroll-bar-drag): Call scroll-bar-drag-1
inside the let.

diff -r a75524689022 -r e293764039a5 lisp/scroll-bar.el
--- a/lisp/scroll-bar.el	Wed May 31 19:30:32 1995 +0000
+++ b/lisp/scroll-bar.el	Wed May 31 19:39:24 1995 +0000
@@ -136,8 +136,9 @@
 	 (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 @@
 		 (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.