From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: "Stefan Monnier" Newsgroups: gmane.emacs.devel Subject: Re: mouse-wheel mode (and probably other stuff) broken due to use of global-map Date: Thu, 21 Mar 2002 11:54:23 -0500 Sender: emacs-devel-admin@gnu.org Message-ID: <200203211654.g2LGsNG17870@rum.cs.yale.edu> References: <200203160639.g2G6dVk07398@wijiji.santafe.edu> <3C972B46.2040604@anubex.com> <200203210903.g2L93fk10046@wijiji.santafe.edu> <3C99C227.6030803@anubex.com> NNTP-Posting-Host: localhost.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: main.gmane.org 1016729865 15329 127.0.0.1 (21 Mar 2002 16:57:45 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Thu, 21 Mar 2002 16:57:45 +0000 (UTC) Cc: 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 16o5sn-0003z8-00 for ; Thu, 21 Mar 2002 17:57:45 +0100 Original-Received: from fencepost.gnu.org ([199.232.76.164]) by quimby.gnus.org with esmtp (Exim 3.12 #1 (Debian)) id 16o5z5-000178-00 for ; Thu, 21 Mar 2002 18:04:15 +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 16o5sQ-0000uw-00; Thu, 21 Mar 2002 11:57:22 -0500 Original-Received: from rum.cs.yale.edu ([128.36.229.169]) by fencepost.gnu.org with esmtp (Exim 3.34 #1 (Debian)) id 16o5pi-0000nl-00; Thu, 21 Mar 2002 11:54:34 -0500 Original-Received: (from monnier@localhost) by rum.cs.yale.edu (8.11.6/8.11.6) id g2LGsNG17870; Thu, 21 Mar 2002 11:54:23 -0500 X-Mailer: exmh version 2.4 06/23/2000 with nmh-1.0.4 Original-To: Tim Van Holder Errors-To: emacs-devel-admin@gnu.org X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.0.5 Precedence: bulk List-Help: List-Post: List-Subscribe: , List-Id: Emacs development discussions. List-Unsubscribe: , List-Archive: Xref: main.gmane.org gmane.emacs.devel:2100 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:2100 > - (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)))) I'd use `global-set-key' since that's what it's for after all. Stefan _______________________________________________ Emacs-devel mailing list Emacs-devel@gnu.org http://mail.gnu.org/mailman/listinfo/emacs-devel