mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-24 05:22:04 -08:00
Code Issues Projects Releases Wiki Activity

(scroll-bar-toolkit-scroll): Don't ring the bell

Browse source 
when we hit the beginning or the end of the buffer.  Instead, just
print a message and do nothing.
This commit is contained in:
Eli Zaretskii 2001-10-19 07:23:53 +00:00
parent f7ce8ceeb7
commit 85ef29a163
1 changed files with 16 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

18
lisp/scroll-bar.el
View file

@ -312,9 +312,23 @@ EVENT should be a scroll bar click."
((< (car portion-whole) 0) -1)
(t 1)))))
((eq part 'up)
(scroll-up -1))
;; 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.
(if (= 0 (save-excursion
(goto-char (window-start))
(forward-line -1)))
(scroll-up -1)
(message "Beginning of buffer")))
((eq part 'down)
(scroll-up 1))
;; Avoid ringing the bell if already at end of
;; buffer; see the commentary above for the
;; reasons.
(if (= 0 (save-excursion (forward-line 2)))
(scroll-up 1)
(message "End of buffer")))
((eq part 'top)
(set-window-start window (point-min)))
((eq part 'bottom)