From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Stefan Monnier Newsgroups: gmane.emacs.help Subject: Re: HELP: One Bindkey for Two Different Commands Date: Fri, 30 Nov 2007 11:39:06 -0500 Message-ID: References: <19f20b9e-58a5-44c5-92bf-39abf6f8db0e@e25g2000prg.googlegroups.com> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: ger.gmane.org 1196440913 11660 80.91.229.12 (30 Nov 2007 16:41:53 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Fri, 30 Nov 2007 16:41:53 +0000 (UTC) To: help-gnu-emacs@gnu.org Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Fri Nov 30 17:42:02 2007 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1Iy8wD-0000kb-BA for geh-help-gnu-emacs@m.gmane.org; Fri, 30 Nov 2007 17:42:01 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Iy8vx-0006RO-K9 for geh-help-gnu-emacs@m.gmane.org; Fri, 30 Nov 2007 11:41:45 -0500 Original-Path: shelby.stanford.edu!newsfeed.stanford.edu!postnews.google.com!news1.google.com!border1.nntp.dca.giganews.com!nntp.giganews.com!local01.nntp.dca.giganews.com!nntp.umontreal.ca!news.umontreal.ca.POSTED!not-for-mail Original-NNTP-Posting-Date: Fri, 30 Nov 2007 10:39:06 -0600 Original-Newsgroups: gnu.emacs.help User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/23.0.50 (gnu/linux) Cancel-Lock: sha1:uj1hTlLUgsd976riZpBo4Ekbr7g= Original-Lines: 21 X-Usenet-Provider: http://www.giganews.com Original-NNTP-Posting-Host: 132.204.27.213 Original-X-Trace: sv3-NURaWn3yvZcfontSC5qU3FjhPdGtiuMEmcFlNZJdzQYLifCS97gPlNOoQQTLdfXND5KlhDzDGYp51Ao!DlQi8rVQe/lFej4ijiI/h2ILe5OV56GHl/5f2Un3PNCHeg8zVuK3kavUjzA/r8gK3EMqXLEqxiBG!UW+qhOcmxcKHROZ6eA== Original-X-Complaints-To: abuse@umontreal.ca X-DMCA-Complaints-To: abuse@umontreal.ca X-Abuse-and-DMCA-Info: Please be sure to forward a copy of ALL headers X-Abuse-and-DMCA-Info: Otherwise we will be unable to process your complaint properly X-Postfilter: 1.3.36 Original-Xref: shelby.stanford.edu gnu.emacs.help:154304 X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.help:49731 Archived-At: > Unfortunately, this very simple idea doesn't seem to work for me. > Here's what I have in my .emacs so far: > (defun ya-ya () > (if (cdr (window-list)) > 'other-window > 'switch-to-buffer)) > (global-set-key "\M-o" (ya-ya)) > Any ideas how this might be accomplished? How 'bout some neat hack like: (global-set-key "\M-o" '(menu-item "Foo" bar :filter (lambda (x) (if (cdr (window-list)) 'other-window 'switch-to-buffer)))) -- Stefan ;-)