[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: mouse-wheel mode (and probably other stuff) broken due to use of glo
From: |
Tim Van Holder |
Subject: |
Re: mouse-wheel mode (and probably other stuff) broken due to use of global-map |
Date: |
Thu, 21 Mar 2002 12:21:11 +0100 |
User-agent: |
Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.8) Gecko/20020206 |
Richard Stallman wrote:
> > So I modified affected packages to use (current-global-map) and not
> > global-map; this complies with the documentation and should keep
> > them working reliably.
>
> Maybe we should install that change. Which packages did you change
> in this way?
Turns out I only changed mwheel.el (patch below) and two site
packages that are used to set up preferred bindings for the function
keys.
Index: mwheel.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/mwheel.el,v
retrieving revision 1.10
diff -u -r1.10 mwheel.el
--- mwheel.el 2 Mar 2002 08:18:12 -0000 1.10
+++ mwheel.el 21 Mar 2002 11:16:24 -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
--
Tim Van Holder <mailto:address@hidden>
Anubex <http://www.anubex.com>
Telephone: +32 3 450 42 32 Fax: +32 3 450 42 51