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: Assignment of misc packages for emacs Date: Sun, 19 May 2002 10:41:22 -0400 Sender: emacs-devel-admin@gnu.org Message-ID: <200205191441.g4JEfMg23080@rum.cs.yale.edu> References: <200205050534.g455YfF01634@aztec.santafe.edu> <5xbsbumexh.fsf@kfs2.cua.dk> <200205141941.g4EJfud15293@aztec.santafe.edu> <5xvg9qmgzt.fsf@kfs2.cua.dk> <200205151927.g4FJRRW26103@rum.cs.yale.edu> <5x3cwr4q7m.fsf@kfs2.cua.dk> <87g00rd74y.fsf@tc-1-100.kawasaki.gol.ne.jp> <87sn4otknt.fsf@tc-1-100.kawasaki.gol.ne.jp> NNTP-Posting-Host: localhost.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: main.gmane.org 1021819344 1622 127.0.0.1 (19 May 2002 14:42:24 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 19 May 2002 14:42:24 +0000 (UTC) Cc: storm@cua.dk (Kim F. Storm), "Stefan Monnier" , rms@gnu.org, emacs-devel@gnu.org Return-path: Original-Received: from quimby.gnus.org ([80.91.224.244]) by main.gmane.org with esmtp (Exim 3.33 #1 (Debian)) id 179Rt9-0000Q3-00 for ; Sun, 19 May 2002 16:42:23 +0200 Original-Received: from fencepost.gnu.org ([199.232.76.164]) by quimby.gnus.org with esmtp (Exim 3.12 #1 (Debian)) id 179S6e-00026x-00 for ; Sun, 19 May 2002 16:56:21 +0200 Original-Received: from localhost ([127.0.0.1] helo=fencepost.gnu.org) by fencepost.gnu.org with esmtp (Exim 3.34 #1 (Debian)) id 179Rt3-0002ps-00; Sun, 19 May 2002 10:42:17 -0400 Original-Received: from rum.cs.yale.edu ([128.36.229.169]) by fencepost.gnu.org with esmtp (Exim 3.34 #1 (Debian)) id 179RsB-0002lu-00; Sun, 19 May 2002 10:41:23 -0400 Original-Received: (from monnier@localhost) by rum.cs.yale.edu (8.11.6/8.11.6) id g4JEfMg23080; Sun, 19 May 2002 10:41:23 -0400 X-Mailer: exmh version 2.4 06/23/2000 with nmh-1.0.4 Original-To: Miles Bader Errors-To: emacs-devel-admin@gnu.org X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.0.9 Precedence: bulk List-Help: List-Post: List-Subscribe: , List-Id: Emacs development discussions. List-Unsubscribe: , List-Archive: Xref: main.gmane.org gmane.emacs.devel:4120 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:4120 > So can someone tell me how to define `HierarKey' menus? The elisp > manual seems to suggest that the following should work: > > (progn > (defvar menu-map) > (setq menu-map (make-sparse-keymap "This is a prompt")) > (local-set-key "&" menu-map) > (define-key menu-map "1" '(menu-item "Insert 1" (lambda () (interactive) (insert "1")))) > (define-key menu-map "2" '(menu-item "Insert 2" (lambda () (interactive) (insert "2"))))) > > and that then hitting the `&' key should give me a menu in the echo > area -- but it doesn't it just displays `&-' like any other key prefix. Works for me. As mentioned in one of my earlier messages, it didn't work for the CVS head a few days ago (a mess up of mine), but it is now fixed. Stefan