Mercurial > hg > xemacs-beta

comparison lisp/utils/easymenu.el @ 151:59463afc5666 r20-3b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b2
author cvs
date Mon, 13 Aug 2007 09:37:19 +0200
parents 1370575f1259
children 15872534500d
comparison
equal deleted inserted replaced
150:8ebb1c0f0f6f 151:59463afc5666
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.3 1997/04/16 04:08:03 steve Exp $ 3 ;; $Id: easymenu.el,v 1.4 1997/05/23 01:36:43 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/04/16 04:08:03 $|$Revision: 1.3 $|~/misc/easymenu.el.gz| 8 ;; $Date: 1997/05/23 01:36:43 $|$Revision: 1.4 $|~/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
166 166
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 (setq easy-menu-all-popups (cons menu easy-menu-all-popups)) 171 (pushnew menu easy-menu-all-popups)
172 (setq mode-popup-menu (cons (easy-menu-title) 172 (setq mode-popup-menu (cons (easy-menu-title)
173 (reverse easy-menu-all-popups))) 173 (reverse easy-menu-all-popups)))
174 174
175 (cond ((null current-menubar) 175 (cond ((null current-menubar)
176 ;; Don't add it to a non-existing menubar. 176 ;; Don't add it to a non-existing menubar.