all messages for Emacs-related lists mirrored at yhetil.org
 help / color / mirror / code / Atom feed
From: Tim Van Holder <tim.vanholder@anubex.com>
Cc: emacs-devel@gnu.org
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	[thread overview]
Message-ID: <3C99C227.6030803@anubex.com> (raw)
In-Reply-To: 200203210903.g2L93fk10046@wijiji.santafe.edu

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:tim.vanholder@anubex.com>
Anubex         <http://www.anubex.com>
Telephone: +32 3 450 42 32              Fax: +32 3 450 42 51


_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://mail.gnu.org/mailman/listinfo/emacs-devel


  reply	other threads:[~2002-03-21 11:21 UTC|newest]

Thread overview: 6+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
     [not found] <m3wuxbrvgl.fsf@bender.falconsoft.be>
     [not found] ` <200203160639.g2G6dVk07398@wijiji.santafe.edu>
     [not found]   ` <3C972B46.2040604@anubex.com>
2002-03-21  9:03     ` mouse-wheel mode (and probably other stuff) broken due to use of global-map Richard Stallman
2002-03-21 11:21       ` Tim Van Holder [this message]
2002-03-21 16:54         ` Stefan Monnier
2002-03-24 18:26           ` Pavel Janík
2002-03-24 21:24             ` Colin Walters
2002-03-25 10:58             ` Tim Van Holder

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=3C99C227.6030803@anubex.com \
    --to=tim.vanholder@anubex.com \
    --cc=emacs-devel@gnu.org \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body. 
Code repositories for project(s) associated with this external index

	https://git.savannah.gnu.org/cgit/emacs.git
	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.