# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 796412547 0
# Node ID fb77829412af4208324622c42dd851eef18727b0
# Parent  c2b689aeb9347782c86bfc59fc11b02072cd370e
(scroll-bar-drag): Bind echo-keystrokes to 0.

diff -r c2b689aeb934 -r fb77829412af lisp/scroll-bar.el
--- a/lisp/scroll-bar.el	Tue Mar 28 17:34:52 1995 +0000
+++ b/lisp/scroll-bar.el	Tue Mar 28 17:42:27 1995 +0000
@@ -132,7 +132,8 @@
   "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)