From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Stephen Leake Newsgroups: gmane.emacs.devel Subject: invoke a keyboard menu map from lisp? Date: Wed, 26 Aug 2015 16:40:13 -0500 Message-ID: <86egipk9tu.fsf@stephe-leake.org> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-Trace: ger.gmane.org 1440625282 4693 80.91.229.3 (26 Aug 2015 21:41:22 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Wed, 26 Aug 2015 21:41:22 +0000 (UTC) To: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Wed Aug 26 23:41:11 2015 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1ZUiRP-0005z3-6R for ged-emacs-devel@m.gmane.org; Wed, 26 Aug 2015 23:41:07 +0200 Original-Received: from localhost ([::1]:42359 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZUiRO-00029k-FI for ged-emacs-devel@m.gmane.org; Wed, 26 Aug 2015 17:41:06 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:58533) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZUiRA-00029R-Hi for emacs-devel@gnu.org; Wed, 26 Aug 2015 17:40:53 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1ZUiR5-0003C7-Fg for emacs-devel@gnu.org; Wed, 26 Aug 2015 17:40:52 -0400 Original-Received: from gproxy6-pub.mail.unifiedlayer.com ([67.222.39.168]:55781) by eggs.gnu.org with smtp (Exim 4.71) (envelope-from ) id 1ZUiR5-0003BR-7J for emacs-devel@gnu.org; Wed, 26 Aug 2015 17:40:47 -0400 Original-Received: (qmail 506 invoked by uid 0); 26 Aug 2015 21:40:36 -0000 Original-Received: from unknown (HELO cmgw2) (10.0.90.83) by gproxy6.mail.unifiedlayer.com with SMTP; 26 Aug 2015 21:40:36 -0000 Original-Received: from host114.hostmonster.com ([74.220.207.114]) by cmgw2 with id 9ZgS1r00S2UdiVW01ZgVmT; Wed, 26 Aug 2015 15:40:34 -0600 X-Authority-Analysis: v=2.1 cv=C6F6l2/+ c=1 sm=1 tr=0 a=CQdxDb2CKd3SRg4I0/XZPQ==:117 a=CQdxDb2CKd3SRg4I0/XZPQ==:17 a=DsvgjBjRAAAA:8 a=f5113yIGAAAA:8 a=9i_RQKNPAAAA:8 a=y7kgw_RnJtkA:10 a=IkcTkHD0fZMA:10 a=hEr_IkYJT6EA:10 a=x_XPkuGwIRMA:10 a=uRRa74qj2VoA:10 a=fecFxniwb6zoimehMa8A:9 a=QEXdDO2ut3YA:10 Original-Received: from [76.218.37.33] (port=55846 helo=TAKVER2) by host114.hostmonster.com with esmtpa (Exim 4.84) (envelope-from ) id 1ZUiQm-0006bk-1D for emacs-devel@gnu.org; Wed, 26 Aug 2015 15:40:28 -0600 User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.5 (windows-nt) X-Identified-User: {2442:host114.hostmonster.com:stephele:stephe-leake.org} {sentby:smtp auth 76.218.37.33 authed with stephen_leake@stephe-leake.org} X-detected-operating-system: by eggs.gnu.org: GNU/Linux 3.x X-Received-From: 67.222.39.168 X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:189198 Archived-At: I'm trying to build a keyboard menu keymap on the fly, and then invoke it. I've gotten this far: (defun dvc-offer-choices (comment choices) "Present user with a choice of actions, labeled by COMMENT. CHOICES is a = list of pairs containing (function description)." ;; Build a keyboard menu keymap (let ((i 0) (map (make-sparse-keymap "actions")) choice) (unless (< (length choices) 10) (error "=E2=80=98dvc-offer-choices=E2=80=99 only supports up to 10 ch= oices")) (while choices (setq choice (pop choices)) (define-key map (int-to-string i) (list menu-item (format "%d) %s" i (cadr choice)) (car choice)))) ;; FIXME: invoke the map )) But I can't find the function that executes the keymap. Can anyone help? --=20 -- Stephe