diff options
| author | Richard M. Stallman | 1995-03-28 17:42:27 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-03-28 17:42:27 +0000 |
| commit | c782bea55047f1a15ae78d07a9e2c1ad609d8929 (patch) | |
| tree | 76f2c878a1b1dd6cb662e67f18e4f700fdf2e24a | |
| parent | 4766242da2d2e286dcff18181413a80ab6ebca07 (diff) | |
| download | emacs-c782bea55047f1a15ae78d07a9e2c1ad609d8929.tar.gz emacs-c782bea55047f1a15ae78d07a9e2c1ad609d8929.zip | |
(scroll-bar-drag): Bind echo-keystrokes to 0.
| -rw-r--r-- | lisp/scroll-bar.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/scroll-bar.el b/lisp/scroll-bar.el index ad1e07abcdb..0a01a1dd7e9 100644 --- a/lisp/scroll-bar.el +++ b/lisp/scroll-bar.el | |||
| @@ -132,7 +132,8 @@ EVENT should be a scroll bar click or drag event." | |||
| 132 | "Scroll the window by dragging the scroll bar slider. | 132 | "Scroll the window by dragging the scroll bar slider. |
| 133 | If you click outside the slider, the window scrolls to bring the slider there." | 133 | If you click outside the slider, the window scrolls to bring the slider there." |
| 134 | (interactive "e") | 134 | (interactive "e") |
| 135 | (let* (done) | 135 | (let* (done |
| 136 | (echo-keystrokes 0)) | ||
| 136 | (or point-before-scroll | 137 | (or point-before-scroll |
| 137 | (setq point-before-scroll (point))) | 138 | (setq point-before-scroll (point))) |
| 138 | (scroll-bar-drag-1 event) | 139 | (scroll-bar-drag-1 event) |