diff options
| author | Pavel Janík <Pavel@Janik.cz> | 2002-03-24 15:25:11 +0000 |
|---|---|---|
| committer | Pavel Janík <Pavel@Janik.cz> | 2002-03-24 15:25:11 +0000 |
| commit | 49e30cd638ceaf4819d5b8da1a5611e53fdb2b58 (patch) | |
| tree | 86df71b1eb44119af1095cc6a90e31f7a8db4468 /lisp/mwheel.el | |
| parent | 137e547d38d73097d82571745e954fcf4c18def9 (diff) | |
| download | emacs-49e30cd638ceaf4819d5b8da1a5611e53fdb2b58.tar.gz | |
(mouse-wheel-mode): Use the result of current-global-map instead of the
variable `global-map'.
Diffstat (limited to 'lisp/mwheel.el')
| -rw-r--r-- | lisp/mwheel.el | 6 |
1 files 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 |