Mercurial > hg > xemacs-beta
diff lisp/utils/easymenu.el @ 171:929b76928fce r20-3b12
Import from CVS: tag r20-3b12
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:47:52 +0200 |
| parents | 15872534500d |
| children |
line wrap: on
line diff
--- a/lisp/utils/easymenu.el Mon Aug 13 09:47:00 2007 +0200 +++ b/lisp/utils/easymenu.el Mon Aug 13 09:47:52 2007 +0200 @@ -1,11 +1,11 @@ ;;; easymenu.el - Easy menu support for Emacs 19 and XEmacs. ;; -;; $Id: easymenu.el,v 1.5 1997/07/07 00:53:20 steve Exp $ +;; $Id: easymenu.el,v 1.6 1997/07/09 04:31:35 steve Exp $ ;; ;; LCD Archive Entry: ;; easymenu|Per Abrahamsen|abraham@iesd.auc.dk| ;; Easy menu support for XEmacs| -;; $Date: 1997/07/07 00:53:20 $|$Revision: 1.5 $|~/misc/easymenu.el.gz| +;; $Date: 1997/07/09 04:31:35 $|$Revision: 1.6 $|~/misc/easymenu.el.gz| ;; Copyright (C) 1992, 1993, 1994, 1995 Free Software Foundation, Inc. @@ -169,7 +169,7 @@ (if (featurep 'menubar) (progn (pushnew menu easy-menu-all-popups) - (setq mode-popup-menu (if (< (length easy-menu-all-popups) 1) + (setq mode-popup-menu (if (> (length easy-menu-all-popups) 1) (cons (easy-menu-title) (reverse easy-menu-all-popups)) (car easy-menu-all-popups)))