XEmacs 21.4.18 (Social Property).

[chise/xemacs-chise.git.1] / lisp / easymenu.el

diff --git a/lisp/easymenu.el b/lisp/easymenu.el
index 6673789..93c9d58 100644 (file)
--- a/lisp/easymenu.el
+++ b/lisp/easymenu.el
@@ -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