X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Feasymenu.el;fp=lisp%2Feasymenu.el;h=93c9d5877ae7c646d8e14e8610c088347048ffb1;hb=0298dde5c47a900f2542bc7ec6c9dafc92ce3015;hp=66737893b5b713d66a0d872f78eccd411ba7556a;hpb=ee38d21b330f5001b47a577cefb5ba7b82a3b7d3;p=chise%2Fxemacs-chise.git.1

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