Mercurial > emacs

diff lisp/mwheel.el @ 44147:d8a6c969ea05

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 8f34ebe4ff92
children 7648ca9b6024
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