# HG changeset patch
# User Pavel Jan���k <Pavel@Janik.cz>
# Date 1016983511 0
# Node ID 8f34ebe4ff92931cafbf2703a2cce355ad363a87
# Parent  a7b556a4c61a2be07dc888f1925a91c9fbf1bae7
(mouse-wheel-mode): Use the result of current-global-map instead of the
variable `global-map'.

diff -r a7b556a4c61a -r 8f34ebe4ff92 lisp/mwheel.el
--- a/lisp/mwheel.el	Sun Mar 24 15:21:55 2002 +0000
+++ b/lisp/mwheel.el	Sun Mar 24 15:25:11 2002 +0000
@@ -169,9 +169,9 @@
     (condition-case ()
 	(dolist (key keys)
 	  (cond (mouse-wheel-mode
-		 (define-key global-map key 'mwheel-scroll))
-		((eq (lookup-key global-map key) 'mwheel-scroll)
-		 (define-key global-map key nil))))
+		 (define-key (current-global-map) key 'mwheel-scroll))
+		((eq (lookup-key (current-global-map) key) 'mwheel-scroll)
+		 (define-key (current-global-map) key nil))))
       (error nil))))
 
 ;;; Compatibility entry point