mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-21 03:52:16 -08:00
Code Issues Projects Releases Wiki Activity

Fix last change.

Browse source
This commit is contained in:
Eli Zaretskii 2001-10-19 07:29:48 +00:00
parent 85ef29a163
commit da77fdb5e7
2 changed files with 9 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -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.

8
lisp/scroll-bar.el
View file

@ -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")))