From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Richard Stallman Newsgroups: gmane.emacs.devel Subject: Re: Multiple menus for the same event Date: Mon, 23 Dec 2002 15:58:53 -0500 Sender: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Message-ID: References: <200211122235.gACMZQc10235@rum.cs.yale.edu> Reply-To: rms@gnu.org NNTP-Posting-Host: main.gmane.org X-Trace: main.gmane.org 1040677479 14252 80.91.224.249 (23 Dec 2002 21:04:39 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 23 Dec 2002 21:04:39 +0000 (UTC) Cc: emacs-devel@gnu.org Return-path: Original-Received: from quimby.gnus.org ([80.91.224.244]) by main.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 18QZkb-0003ha-00 for ; Mon, 23 Dec 2002 22:04:37 +0100 Original-Received: from monty-python.gnu.org ([199.232.76.173]) by quimby.gnus.org with esmtp (Exim 3.12 #1 (Debian)) id 18QZnp-0000SN-00 for ; Mon, 23 Dec 2002 22:07:58 +0100 Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.10.13) id 18QZjz-0002nA-07 for emacs-devel@quimby.gnus.org; Mon, 23 Dec 2002 16:03:59 -0500 Original-Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.10.13) id 18QZjh-0002lO-00 for emacs-devel@gnu.org; Mon, 23 Dec 2002 16:03:41 -0500 Original-Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.10.13) id 18QZfh-0001GX-00 for emacs-devel@gnu.org; Mon, 23 Dec 2002 15:59:34 -0500 Original-Received: from fencepost.gnu.org ([199.232.76.164]) by monty-python.gnu.org with esmtp (Exim 4.10.13) id 18QZf3-0000wB-00 for emacs-devel@gnu.org; Mon, 23 Dec 2002 15:58:53 -0500 Original-Received: from rms by fencepost.gnu.org with local (Exim 4.10) id 18QZf3-0004p7-00; Mon, 23 Dec 2002 15:58:53 -0500 Original-To: monnier+gnu/emacs/pretest@rum.cs.yale.edu In-reply-to: <200211122235.gACMZQc10235@rum.cs.yale.edu> (monnier+gnu/emacs/pretest@rum.cs.yale.edu) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1b5 Precedence: list List-Id: Emacs development discussions. List-Help: List-Post: List-Subscribe: , List-Archive: List-Unsubscribe: , Errors-To: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Xref: main.gmane.org gmane.emacs.devel:10328 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:10328 With Emacs-21.[123], if you do: > emacs -q --no-site-file -l checkdoc \ --eval '(progn (define-key checkdoc-minor-mode-map [menu-bar emacs-lisp] (cons "Elisp" (make-sparse-keymap "Elisp"))) (define-key checkdoc-minor-mode-map [menu-bar emacs-lisp checkdoc] (cons "Checkdoc" checkdoc-minor-menu)))' \ lisp/subr.el -f checkdoc-minor-mode you get an `Emacs-lisp' menu that contains two `emacs lisp' submenus: one is the original emacs-lisp menu and the other contains just a `checkdoc' entry which is itself a submenu. With the code on the trunk, this is not the case any more. Instead, you get under `emacs-lisp' a menu with a single entry ... I think I have fixed these problems. Thanks. The current behavior is not quite ideal, but I am not sure how to make it better. You will get better results if you do this instead: (define-key checkdoc-minor-mode-map [menu-bar emacs-lisp] (cons "Checkdoc" (lookup-key checkdoc-minor-mode-map [menu-bar checkdoc])))