From: Tim Van Holder <tim.vanholder@anubex.com>
Cc: Stefan Monnier <monnier+gnu/emacs@RUM.cs.yale.edu>,
rms@gnu.org, emacs-devel@gnu.org
Subject: Re: mouse-wheel mode (and probably other stuff) broken due to use of global-map
Date: Mon, 25 Mar 2002 11:58:44 +0100 [thread overview]
Message-ID: <3C9F02E4.5050506@anubex.com> (raw)
In-Reply-To: m3zo0xg6u0.fsf@Janik.cz
Pavel Janík wrote:
> >
> > I'd use `global-set-key' since that's what it's for after all.
>
> Yes. Can anyone test the following change?
>
> --- mwheel.el.~1.11.~ Sun Mar 24 15:52:02 2002
> +++ mwheel.el Sun Mar 24 19:25:25 2002
> @@ -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))))
>
Seems to work fine (that is, the mouse wheel does what it's supposed to do).
--
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
prev parent reply other threads:[~2002-03-25 10:58 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
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 [this message]
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
List information: https://www.gnu.org/software/emacs/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=3C9F02E4.5050506@anubex.com \
--to=tim.vanholder@anubex.com \
--cc=emacs-devel@gnu.org \
--cc=monnier+gnu/emacs@RUM.cs.yale.edu \
--cc=rms@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 public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).