From da77fdb5e71db91c00638c4261b4606735607da6 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Fri, 19 Oct 2001 07:29:48 +0000 Subject: [PATCH] Fix last change. --- lisp/ChangeLog | 6 ++++++ lisp/scroll-bar.el | 8 +++----- 2 files changed, 9 insertions(+), 5 deletions(-) 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 + + * 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 * 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"))) -- 2.39.2