diff options
| author | Pavel Janík <Pavel@Janik.cz> | 2002-03-25 11:31:11 +0000 |
|---|---|---|
| committer | Pavel Janík <Pavel@Janik.cz> | 2002-03-25 11:31:11 +0000 |
| commit | 7ad8cd8e23c293aa2ca8000960863de3f5d13e52 (patch) | |
| tree | 76c143d98eab5b2131066b11e7d8cd296f9d861b /lisp/mwheel.el | |
| parent | 2b2ba4ef7f8dc3ba3fda774f602ca966a842d950 (diff) | |
| download | emacs-7ad8cd8e23c293aa2ca8000960863de3f5d13e52.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 |