From: Eli Zaretskii <eliz@gnu.org>
Date: Fri, 19 Oct 2001 07:29:48 +0000 (+0000)
Subject: Fix last change.
X-Git-Tag: emacs-21.1~21
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=da77fdb5e71db91c00638c4261b4606735607da6;p=emacs.git

Fix last change.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2d75c48f4de..33f1d1d7514 100644
--- 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 29ad9a70dab..742e769a370 100644
--- 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")))