From 7ad8cd8e23c293aa2ca8000960863de3f5d13e52 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Pavel=20Jan=C3=ADk?= Date: Mon, 25 Mar 2002 11:31:11 +0000 Subject: [PATCH] (mouse-wheel-mode): Use global-set-key and global-unset-key. --- lisp/ChangeLog | 5 +++++ lisp/mwheel.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 23e7f846274..62d8f3e896d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2002-03-25 Pavel Jan,Bm(Bk + + * mwheel.el (mouse-wheel-mode): Use global-set-key and + global-unset-key. + 2002-03-24 Richard M. Stallman * mail/rmail.el (rmail-resend): Call mail-abbrev-make-syntax-table. diff --git a/lisp/mwheel.el b/lisp/mwheel.el index bd99c00fa74..5b04b9ba991 100644 --- a/lisp/mwheel.el +++ b/lisp/mwheel.el @@ -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 -- 2.39.2