From mboxrd@z Thu Jan  1 00:00:00 1970
Path: main.gmane.org!not-for-mail
From: "Neil W. Van Dyke" <neil@NOSPAMneilvandyke.org>
Newsgroups: gmane.emacs.help
Subject: problem with easymenu :filter submenus in Emacs 20.7
Date: 24 Sep 2002 18:42:05 -0400
Organization: none
Sender: help-gnu-emacs-admin@gnu.org
Message-ID: <alit0vxb5u.fsf@neilvandyke.org>
NNTP-Posting-Host: localhost.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: main.gmane.org 1032908177 15568 127.0.0.1 (24 Sep 2002 22:56:17 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Tue, 24 Sep 2002 22:56:17 +0000 (UTC)
Return-path: <help-gnu-emacs-admin@gnu.org>
Original-Received: from monty-python.gnu.org ([199.232.76.173])
	by main.gmane.org with esmtp (Exim 3.35 #1 (Debian))
	id 17tybH-00042y-00
	for <gnu-help-gnu-emacs@m.gmane.org>; Wed, 25 Sep 2002 00:56:15 +0200
Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org)
	by monty-python.gnu.org with esmtp (Exim 4.10)
	id 17tybN-0005GZ-00; Tue, 24 Sep 2002 18:56:21 -0400
Original-Path: shelby.stanford.edu!nntp.stanford.edu!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!kibo.news.demon.net!demon!newshub1.nl.home.com!news.nl.home.com!skynet.be!skynet.be!sn-xit-03!sn-xit-06!sn-post-01!supernews.com!corp.supernews.com!not-for-mail
Original-Newsgroups: gnu.emacs.help
Original-X-Complaints-To: abuse@supernews.com
Original-Lines: 44
Original-Xref: nntp.stanford.edu gnu.emacs.help:105271
Original-To: help-gnu-emacs@gnu.org
Errors-To: help-gnu-emacs-admin@gnu.org
X-BeenThere: help-gnu-emacs@gnu.org
X-Mailman-Version: 2.0.11
Precedence: bulk
List-Help: <mailto:help-gnu-emacs-request@gnu.org?subject=help>
List-Post: <mailto:help-gnu-emacs@gnu.org>
List-Subscribe: <http://mail.gnu.org/mailman/listinfo/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=subscribe>
List-Id: Users list for the GNU Emacs text editor <help-gnu-emacs.gnu.org>
List-Unsubscribe: <http://mail.gnu.org/mailman/listinfo/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=unsubscribe>
List-Archive: <http://mail.gnu.org/pipermail/help-gnu-emacs/>
Xref: main.gmane.org gmane.emacs.help:1825
X-Report-Spam: http://spam.gmane.org/gmane.emacs.help:1825

When I use the standard `easymenu' package to add to the menu-bar a menu
with a `:filter' submenu under FSF Emacs 20.7, selected actions on the
parent menu are executed as the user would expect, but selected actions
on the submenu are not executed.

This code reproduces the problem:


(require 'easymenu)

(defvar my-menu)
(easy-menu-define my-menu
		  (current-global-map)
		  "My Docstring"
		  '("My Menu"
		    ["Alpha"   (my-action 'alpha)]
		    ["Bravo"   (my-action 'bravo)]
		    ["Charlie" (my-action 'charlie)]
		    ("Submenu" :filter my-submenu-filter)))

(defun my-submenu-filter (menu)
  (easy-menu-filter-return 
   (easy-menu-create-menu "My Submenu"
                          '(["Delta"         (my-action 'delta)]
                            ["Echo (Symbol)" my-action-echo]
                            ["Foxtrot"       (my-action 'foxtrot)]))))

(defun my-action (&rest args)
  (interactive)
  (insert (format "{my-action %S}" args)))

(defun my-action-echo ()
  (interactive)
  (insert "{my-action-echo}"))


What am I doing wrong?

My current need is for porting to FSF Emacs 20 a package that is already
working under FSF Emacs 21 and XEmacs 21.

Thanks,
Neil