diff options
| author | Pavel Janík | 2002-03-24 15:25:11 +0000 |
|---|---|---|
| committer | Pavel Janík | 2002-03-24 15:25:11 +0000 |
| commit | 49e30cd638ceaf4819d5b8da1a5611e53fdb2b58 (patch) | |
| tree | 86df71b1eb44119af1095cc6a90e31f7a8db4468 | |
| parent | 137e547d38d73097d82571745e954fcf4c18def9 (diff) | |
| download | emacs-49e30cd638ceaf4819d5b8da1a5611e53fdb2b58.tar.gz emacs-49e30cd638ceaf4819d5b8da1a5611e53fdb2b58.zip | |
(mouse-wheel-mode): Use the result of current-global-map instead of the
variable `global-map'.
| -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." | |||
| 169 | (condition-case () | 169 | (condition-case () |
| 170 | (dolist (key keys) | 170 | (dolist (key keys) |
| 171 | (cond (mouse-wheel-mode | 171 | (cond (mouse-wheel-mode |
| 172 | (define-key global-map key 'mwheel-scroll)) | 172 | (define-key (current-global-map) key 'mwheel-scroll)) |
| 173 | ((eq (lookup-key global-map key) 'mwheel-scroll) | 173 | ((eq (lookup-key (current-global-map) key) 'mwheel-scroll) |
| 174 | (define-key global-map key nil)))) | 174 | (define-key (current-global-map) key nil)))) |
| 175 | (error nil)))) | 175 | (error nil)))) |
| 176 | 176 | ||
| 177 | ;;; Compatibility entry point | 177 | ;;; Compatibility entry point |