Mercurial > emacs

changeset 12040:e293764039a5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(scroll-bar-drag): Call scroll-bar-drag-1 inside the let.
author Karl Heuer <kwzh@gnu.org>
date Wed, 31 May 1995 19:39:24 +0000
parents a75524689022
children b0970a642589
files lisp/scroll-bar.el
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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.