;;; scroll-bar.el --- window system-independent scroll bar support.
-;;; Copyright (C) 1993, 1994 Free Software Foundation, Inc.
+;;; Copyright (C) 1993, 1994, 1995 Free Software Foundation, Inc.
;; Maintainer: FSF
;; Keywords: hardware
"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)
+ ;; 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))
(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.