mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-13 16:38:14 +00:00
Code Issues Releases Activity

(scroll-bar-drag): Bind echo-keystrokes to 0.

Browse Source
This commit is contained in:
Richard M. Stallman 1995-03-28 17:42:27 +00:00
parent 4766242da2
commit c782bea550
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/scroll-bar.el
View File

@ -132,7 +132,8 @@ EVENT should be a scroll bar click or drag event."
"Scroll the window by dragging the scroll bar slider.
If you click outside the slider, the window scrolls to bring the slider there."
(interactive "e")
(let* (done)
(let* (done
(echo-keystrokes 0))
(or point-before-scroll
(setq point-before-scroll (point)))
(scroll-bar-drag-1 event)