NOTE: This patch has been committed.
Also affects 21.4, and is worth considering for it.
lisp/ChangeLog addition:
2005-03-25 Ralf Angeli <angeli(a)iwi.uni-sb.de>
* easymenu.el (easy-menu-remove): As described in
E1D4Nn5-0001lq-EU(a)neutrino.iwi.uni-sb.de; don't strip everything
except the "Command" menu from mode-popup-menu.
XEmacs Trunk source patch:
Diff command: cvs -q diff -u
Files affected: lisp/easymenu.el
Index: lisp/easymenu.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/easymenu.el,v
retrieving revision 1.7
diff -u -u -r1.7 easymenu.el
--- lisp/easymenu.el 2005/02/03 05:03:38 1.7
+++ lisp/easymenu.el 2005/03/25 16:12:14
@@ -203,7 +203,7 @@
"Remove MENU from the current menu bar."
(when (featurep 'menubar)
(setq easy-menu-all-popups (delq menu easy-menu-all-popups)
- mode-popup-menu (if (< (length easy-menu-all-popups) 1)
+ mode-popup-menu (if (> (length easy-menu-all-popups) 1)
(cons (easy-menu-title)
(reverse easy-menu-all-popups))
(let ((same-as-menu
--
“I, for instance, am gung-ho about open source because my family is being
held hostage in Rob Malda’s basement. But who fact-checks me, or Enderle,
when we say something in public? No-one!” -- Danny O’Brien