Mercurial > hg > xemacs-beta

diff lisp/easymenu.el @ 2686:263a354405ed

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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 9caf26dd924f
children 012240027a21
line wrap: on
line diff
--- 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