changeset 44147:d8a6c969ea05

(mouse-wheel-mode): Use global-set-key and global-unset-key.
author Pavel Janík <Pavel@Janik.cz>
date Mon, 25 Mar 2002 11:30:55 +0000
parents aff7bdba6572
children 7e94a4573fba
files lisp/mwheel.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mwheel.el	Mon Mar 25 04:15:39 2002 +0000
+++ b/lisp/mwheel.el	Mon Mar 25 11:30:55 2002 +0000
@@ -169,9 +169,9 @@
     (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