From mboxrd@z Thu Jan  1 00:00:00 1970
Path: main.gmane.org!not-for-mail
From: Tim Van Holder <tim.vanholder@anubex.com>
Newsgroups: gmane.emacs.devel
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
Organization: Anubex
Sender: emacs-devel-admin@gnu.org
Message-ID: <3C9F02E4.5050506@anubex.com>
References: <m3wuxbrvgl.fsf@bender.falconsoft.be>	<200203160639.g2G6dVk07398@wijiji.santafe.edu>	<3C972B46.2040604@anubex.com>	<200203210903.g2L93fk10046@wijiji.santafe.edu>	<3C99C227.6030803@anubex.com>	<200203211654.g2LGsNG17870@rum.cs.yale.edu> <m3zo0xg6u0.fsf@Janik.cz>
NNTP-Posting-Host: localhost.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-15; format=flowed
Content-Transfer-Encoding: quoted-printable
X-Trace: main.gmane.org 1017054970 10154 127.0.0.1 (25 Mar 2002 11:16:10 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Mon, 25 Mar 2002 11:16:10 +0000 (UTC)
Cc: Stefan Monnier <monnier+gnu/emacs@RUM.cs.yale.edu>, rms@gnu.org,
        emacs-devel@gnu.org
Original-Received: from quimby.gnus.org ([80.91.224.244])
	by main.gmane.org with esmtp (Exim 3.33 #1 (Debian))
	id 16pSSQ-0002dZ-00
	for <emacs-devel@main.gmane.org>; Mon, 25 Mar 2002 12:16:10 +0100
Original-Received: from fencepost.gnu.org ([199.232.76.164])
	by quimby.gnus.org with esmtp (Exim 3.12 #1 (Debian))
	id 16pSaQ-0001yg-00
	for <emacs-devel@quimby.gnus.org>; Mon, 25 Mar 2002 12:24:26 +0100
Original-Received: from localhost ([127.0.0.1] helo=fencepost.gnu.org)
	by fencepost.gnu.org with esmtp (Exim 3.34 #1 (Debian))
	id 16pSFu-0005qd-00; Mon, 25 Mar 2002 06:03:14 -0500
Original-Received: from relay.g-net.be ([62.233.1.66] helo=mxrelay.g-net.be)
	by fencepost.gnu.org with esmtp (Exim 3.34 #1 (Debian))
	id 16pSCq-0002aK-00; Mon, 25 Mar 2002 06:00:04 -0500
Original-Received: from anubex.com ([194.78.64.238])
	by mxrelay.g-net.be (Build 98 8.9.3/NT-8.9.3) with ESMTP id LAA23706;
	Mon, 25 Mar 2002 11:47:02 +0100
User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.8) Gecko/20020206
X-Accept-Language: en-gb, en-us, en, nl-be, nl
Original-To: Pavel =?ISO-8859-15?Q?Jan=EDk?= <Pavel@Janik.cz>
Errors-To: emacs-devel-admin@gnu.org
X-BeenThere: emacs-devel@gnu.org
X-Mailman-Version: 2.0.5
Precedence: bulk
List-Help: <mailto:emacs-devel-request@gnu.org?subject=help>
List-Post: <mailto:emacs-devel@gnu.org>
List-Subscribe: <http://mail.gnu.org/mailman/listinfo/emacs-devel>,
	<mailto:emacs-devel-request@gnu.org?subject=subscribe>
List-Id: Emacs development discussions. <emacs-devel.gnu.org>
List-Unsubscribe: <http://mail.gnu.org/mailman/listinfo/emacs-devel>,
	<mailto:emacs-devel-request@gnu.org?subject=unsubscribe>
List-Archive: <http://mail.gnu.org/pipermail/emacs-devel/>
Xref: main.gmane.org gmane.emacs.devel:2186
X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:2186

Pavel Jan=EDk wrote:
>    >=20
>    > I'd use `global-set-key' since that's what it's for after all.
>=20
> Yes. Can anyone test the following change?
>=20
> --- 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))))
> =20

Seems to work fine (that is, the mouse wheel does what it's supposed to d=
o).

--=20
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