Mercurial > emacs
changeset 44121:8f34ebe4ff92
(mouse-wheel-mode): Use the result of current-global-map instead of the
variable `global-map'.
| author | Pavel Janík <Pavel@Janik.cz> |
|---|---|
| date | Sun, 24 Mar 2002 15:25:11 +0000 |
| parents | a7b556a4c61a |
| children | 3b329edf33a6 |
| files | lisp/mwheel.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mwheel.el Sun Mar 24 15:21:55 2002 +0000 +++ b/lisp/mwheel.el Sun Mar 24 15:25:11 2002 +0000 @@ -169,9 +169,9 @@ (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