CVS update by aidan xemacs/lisp ...
User: aidan
Date: 05/03/25 17:15:58
Modified: xemacs/lisp ChangeLog easymenu.el
Log:
Don't delete everything from the popup menu in easy-menu-remove--thank you, Ralf
Angeli.
Revision Changes Path
1.655 +6 -0 XEmacs/xemacs/lisp/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v
retrieving revision 1.654
retrieving revision 1.655
diff -u -p -r1.654 -r1.655
--- ChangeLog 2005/03/25 15:58:02 1.654
+++ ChangeLog 2005/03/25 16:15:55 1.655
＠＠ -1,4 +1,10 ＠＠
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.
+
+2005-03-25 Ralf Angeli <angeli(a)iwi.uni-sb.de>
* font.el (font-spatial-to-canonical): Correct calculation of
return value for pixel-based input value.
1.8 +1 -1 XEmacs/xemacs/lisp/easymenu.el
Index: easymenu.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/easymenu.el,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -p -r1.7 -r1.8
--- easymenu.el 2005/02/03 05:03:38 1.7
+++ easymenu.el 2005/03/25 16:15:56 1.8
＠＠ -203,7 +203,7 ＠＠ is a list of menu items, as above."
"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