From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Andreas Schwab Newsgroups: gmane.emacs.devel Subject: Re: Get a command by its keybinding and also respecting key translation Date: Mon, 20 Dec 2010 11:09:04 +0100 Message-ID: References: <871v5lpkk6.fsf@member.fsf.org> <201012142351.21774.tassilo@member.fsf.org> <87y67kdff4.fsf@member.fsf.org> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: dough.gmane.org 1292840091 2106 80.91.229.12 (20 Dec 2010 10:14:51 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Mon, 20 Dec 2010 10:14:51 +0000 (UTC) Cc: Stefan Monnier , emacs-devel@gnu.org To: Tassilo Horn Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Mon Dec 20 11:14:46 2010 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1PUclR-0007BP-Pe for ged-emacs-devel@m.gmane.org; Mon, 20 Dec 2010 11:14:45 +0100 Original-Received: from localhost ([127.0.0.1]:40280 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1PUclR-0007bN-2T for ged-emacs-devel@m.gmane.org; Mon, 20 Dec 2010 05:14:45 -0500 Original-Received: from [140.186.70.92] (port=52731 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1PUclA-0007VX-P0 for emacs-devel@gnu.org; Mon, 20 Dec 2010 05:14:30 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1PUcg1-00023z-So for emacs-devel@gnu.org; Mon, 20 Dec 2010 05:09:10 -0500 Original-Received: from mail-out.m-online.net ([212.18.0.10]:37777) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1PUcg1-00022u-Ju for emacs-devel@gnu.org; Mon, 20 Dec 2010 05:09:09 -0500 Original-Received: from frontend1.mail.m-online.net (frontend1.mail.intern.m-online.net [192.168.8.180]) by mail-out.m-online.net (Postfix) with ESMTP id 64D9C186DEDF; Mon, 20 Dec 2010 11:09:05 +0100 (CET) Original-Received: from localhost (dynscan1.mnet-online.de [192.168.8.164]) by mail.m-online.net (Postfix) with ESMTP id BDD8A1C000E5; Mon, 20 Dec 2010 11:09:05 +0100 (CET) X-Virus-Scanned: amavisd-new at mnet-online.de Original-Received: from mail.mnet-online.de ([192.168.8.180]) by localhost (dynscan1.mail.m-online.net [192.168.8.164]) (amavisd-new, port 10024) with ESMTP id DfgBiT+LJFRf; Mon, 20 Dec 2010 11:09:05 +0100 (CET) Original-Received: from igel.home (ppp-88-217-119-169.dynamic.mnet-online.de [88.217.119.169]) by mail.mnet-online.de (Postfix) with ESMTP; Mon, 20 Dec 2010 11:09:05 +0100 (CET) Original-Received: by igel.home (Postfix, from userid 501) id 94F8CCA2A0; Mon, 20 Dec 2010 11:09:04 +0100 (CET) X-Yow: Life is selling REVOLUTIONARY HAIR PRODUCTS! In-Reply-To: <87y67kdff4.fsf@member.fsf.org> (Tassilo Horn's message of "Mon, 20 Dec 2010 09:19:59 +0100") User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/23.2.91 (gnu/linux) X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6, seldom 2.4 (older, 4) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:133829 Archived-At: Tassilo Horn writes: > Or with an example: > > (defmacro define-context-key (keymap key dispatch) > `(define-key ,keymap ,key > (backquote > (menu-item "context-key" ignore > :filter (lambda (&optional ignored) > ,dispatch))))) > > How do I smuggle a `,' before the lambda? First, backquote != `. Then just put it there. (defmacro define-context-key (keymap key dispatch) `(define-key ,keymap ,key `(menu-item "context-key" ignore :filter ,(lambda (&optional ignored) ,dispatch)))) Andreas. -- Andreas Schwab, schwab@linux-m68k.org GPG Key fingerprint = 58CA 54C7 6D53 942B 1756 01D3 44D5 214B 8276 4ED5 "And now for something completely different."