From 49e30cd638ceaf4819d5b8da1a5611e53fdb2b58 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Pavel=20Jan=C3=ADk?= Date: Sun, 24 Mar 2002 15:25:11 +0000 Subject: [PATCH] (mouse-wheel-mode): Use the result of current-global-map instead of the variable `global-map'. --- lisp/mwheel.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/mwheel.el b/lisp/mwheel.el index 27a487d0ef6..bd99c00fa74 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 global-map key 'mwheel-scroll)) - ((eq (lookup-key global-map key) 'mwheel-scroll) - (define-key global-map key nil)))) + (define-key (current-global-map) key 'mwheel-scroll)) + ((eq (lookup-key (current-global-map) key) 'mwheel-scroll) + (define-key (current-global-map) key nil)))) (error nil)))) ;;; Compatibility entry point -- 2.39.2