mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

(scroll-bar-drag): Call scroll-bar-drag-1

Browse Source 
inside the let.
This commit is contained in:
Karl Heuer 1995-05-31 19:39:24 +00:00
parent f139ce8762
commit 6538766ad9
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/scroll-bar.el
View File

@ -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.