Fix last change.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2d75c48f4de6575fa01a7f1ff23b9762040a77b7..33f1d1d7514eb85b9d7f8caa27ab03c0e656c02d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2001-10-18  Eli Zaretskii  <eliz@is.elta.co.il>
+
+       * scroll-bar.el (scroll-bar-toolkit-scroll): Don't ring the bell
+       when we hit the beginning or the end of the buffer.  Instead, just
+       print a message and do nothing.
+
 2001-10-18  Stefan Monnier  <monnier@cs.yale.edu>
 
        * xml.el (xml-parse-tag): Use eq on char-after's return value.

diff --git a/lisp/scroll-bar.el b/lisp/scroll-bar.el
index 29ad9a70dabdf48bfbec0cef74bea1b27b5893b2..742e769a370de9644e97aa804c14b74c6b98e5db 100644 (file)
--- a/lisp/scroll-bar.el
+++ b/lisp/scroll-bar.el
@@ -314,9 +314,8 @@ EVENT should be a scroll bar click."
                   ((eq part 'up)
                    ;; Avoid ringing the bell when at beginning of
                    ;; buffer, since that causes redisplay to bitch
-                   ;; endlessly when visible-bell is in effect and
-                   ;; the toolkit sends us many scroll-bar clicks one
-                   ;; after the other.
+                   ;; endlessly when visible-bell is in effect, for
+                   ;; some reason.
                    (if (= 0 (save-excursion
                               (goto-char (window-start))
                               (forward-line -1)))
@@ -324,8 +323,7 @@ EVENT should be a scroll bar click."
                      (message "Beginning of buffer")))
                   ((eq part 'down)
                    ;; Avoid ringing the bell if already at end of
-                   ;; buffer; see the commentary above for the
-                   ;; reasons.
+                   ;; buffer.
                    (if (= 0 (save-excursion (forward-line 2)))
                        (scroll-up 1)
                      (message "End of buffer")))