Mercurial > hg > xemacs-beta
changeset 2686:263a354405ed
[xemacs-hg @ 2005-03-25 16:15:55 by aidan]
Don't delete everything from the popup menu in easy-menu-remove--thank you, Ralf Angeli.
| author | aidan |
|---|---|
| date | Fri, 25 Mar 2005 16:15:56 +0000 |
| parents | 64752935473d |
| children | 45609533aa75 |
| files | lisp/ChangeLog lisp/easymenu.el |
| diffstat | 2 files changed, 7 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Fri Mar 25 15:58:03 2005 +0000 +++ b/lisp/ChangeLog Fri Mar 25 16:15:56 2005 +0000 @@ -1,3 +1,9 @@ +2005-03-25 Ralf Angeli <angeli@iwi.uni-sb.de> + + * easymenu.el (easy-menu-remove): As described in + E1D4Nn5-0001lq-EU@neutrino.iwi.uni-sb.de; don't strip everything + except the "Command" menu from mode-popup-menu. + 2005-03-25 Ralf Angeli <angeli@iwi.uni-sb.de> * font.el (font-spatial-to-canonical): Correct calculation of
--- a/lisp/easymenu.el Fri Mar 25 15:58:03 2005 +0000 +++ b/lisp/easymenu.el Fri Mar 25 16:15:56 2005 +0000 @@ -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