# HG changeset patch
# User Pavel Jan���k <Pavel@Janik.cz>
# Date 1017055855 0
# Node ID d8a6c969ea051f52b26cb2de2fe2091cb46e461c
# Parent  aff7bdba6572d9a3a7bee3a4d36bea898ea382e3
(mouse-wheel-mode): Use global-set-key and global-unset-key.

diff -r aff7bdba6572 -r d8a6c969ea05 lisp/mwheel.el
--- 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