diff options
| author | Pavel Janík <Pavel@Janik.cz> | 2002-03-25 11:30:55 +0000 |
|---|---|---|
| committer | Pavel Janík <Pavel@Janik.cz> | 2002-03-25 11:30:55 +0000 |
| commit | 4f39479da579b5d65fcd589ef85bce02c06afe11 (patch) | |
| tree | 015333d18fd31a7e91de7802dab0b679d4519231 /lisp/mwheel.el | |
| parent | 855fd32082507e0346abd1114dcca939c24c6af9 (diff) | |
| download | emacs-4f39479da579b5d65fcd589ef85bce02c06afe11.tar.gz | |
(mouse-wheel-mode): Use global-set-key and global-unset-key.
Diffstat (limited to 'lisp/mwheel.el')
| -rw-r--r-- | lisp/mwheel.el | 4 |
1 files changed, 2 insertions, 2 deletions
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 |