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

(mouse-wheel-mode): Use global-set-key and global-unset-key.

Browse source
This commit is contained in:
Pavel Janík 2002-03-25 11:31:11 +00:00
parent 2b2ba4ef7f
commit 7ad8cd8e23
2 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2002-03-25 Pavel Jan,Bm(Bk <Pavel@Janik.cz>
* mwheel.el (mouse-wheel-mode): Use global-set-key and
global-unset-key.
2002-03-24 Richard M. Stallman <rms@gnu.org>
* mail/rmail.el (rmail-resend): Call mail-abbrev-make-syntax-table.

4
lisp/mwheel.el
View file

@ -169,9 +169,9 @@ Returns non-nil if the new state is enabled."
(condition-case ()
(dolist (key keys)
(cond (mouse-wheel-mode
(define-key (current-global-map) key 'mwheel-scroll))
(global-set-key key 'mwheel-scroll))
((eq (lookup-key (current-global-map) key) 'mwheel-scroll)
(define-key (current-global-map) key nil))))
(global-unset-key key))))
(error nil))))
;;; Compatibility entry point