From 6538766ad9352d1410a0196e5e041c8d81d07e75 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Wed, 31 May 1995 19:39:24 +0000 Subject: [PATCH] (scroll-bar-drag): Call scroll-bar-drag-1 inside the let. --- lisp/scroll-bar.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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. -- 2.39.2