Mercurial > hg > xemacs-beta

comparison lisp/utils/easymenu.el @ 171:929b76928fce r20-3b12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b12
author cvs
date Mon, 13 Aug 2007 09:47:52 +0200
parents 15872534500d
children
comparison
equal deleted inserted replaced
170:98a42ee61975 171:929b76928fce
1 ;;; easymenu.el - Easy menu support for Emacs 19 and XEmacs. 1 ;;; easymenu.el - Easy menu support for Emacs 19 and XEmacs.
2 ;; 2 ;;
3 ;; $Id: easymenu.el,v 1.5 1997/07/07 00:53:20 steve Exp $ 3 ;; $Id: easymenu.el,v 1.6 1997/07/09 04:31:35 steve Exp $
4 ;; 4 ;;
5 ;; LCD Archive Entry: 5 ;; LCD Archive Entry:
6 ;; easymenu|Per Abrahamsen|abraham@iesd.auc.dk| 6 ;; easymenu|Per Abrahamsen|abraham@iesd.auc.dk|
7 ;; Easy menu support for XEmacs| 7 ;; Easy menu support for XEmacs|
8 ;; $Date: 1997/07/07 00:53:20 $|$Revision: 1.5 $|~/misc/easymenu.el.gz| 8 ;; $Date: 1997/07/09 04:31:35 $|$Revision: 1.6 $|~/misc/easymenu.el.gz|
9 9
10 ;; Copyright (C) 1992, 1993, 1994, 1995 Free Software Foundation, Inc. 10 ;; Copyright (C) 1992, 1993, 1994, 1995 Free Software Foundation, Inc.
11 11
12 ;; This file is part of XEmacs. 12 ;; This file is part of XEmacs.
13 13
167 (defun easy-menu-add (menu &optional map) 167 (defun easy-menu-add (menu &optional map)
168 "Add MENU to the current menu bar." 168 "Add MENU to the current menu bar."
169 (if (featurep 'menubar) 169 (if (featurep 'menubar)
170 (progn 170 (progn
171 (pushnew menu easy-menu-all-popups) 171 (pushnew menu easy-menu-all-popups)
172 (setq mode-popup-menu (if (< (length easy-menu-all-popups) 1) 172 (setq mode-popup-menu (if (> (length easy-menu-all-popups) 1)
173 (cons (easy-menu-title) 173 (cons (easy-menu-title)
174 (reverse easy-menu-all-popups)) 174 (reverse easy-menu-all-popups))
175 (car easy-menu-all-popups))) 175 (car easy-menu-all-popups)))
176 176
177 (cond ((null current-menubar) 177 (cond ((null current-menubar)