Mercurial > emacs
comparison lisp/emacs-lisp/easymenu.el @ 91005:424b655804ca
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 846-851)
- Update from CVS
- Merge from emacs--rel--22
* emacs--rel--22 (patch 88-92)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 242-244)
- Update from CVS
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-246
author | Miles Bader <miles@gnu.org> |
---|---|
date | Mon, 13 Aug 2007 13:48:35 +0000 |
parents | f55f9811f5d7 e5a68f18fcb9 |
children | 53108e6cea98 |
comparison
equal
deleted
inserted
replaced
91004:f72cf5b2ab11 | 91005:424b655804ca |
---|---|
544 (setq item (cons (keymap-prompt item) item))) | 544 (setq item (cons (keymap-prompt item) item))) |
545 (setq item (easy-menu-convert-item item)) | 545 (setq item (easy-menu-convert-item item)) |
546 (easy-menu-define-key map (easy-menu-intern (car item)) (cdr item) before))) | 546 (easy-menu-define-key map (easy-menu-intern (car item)) (cdr item) before))) |
547 | 547 |
548 (defun easy-menu-item-present-p (map path name) | 548 (defun easy-menu-item-present-p (map path name) |
549 "In submenu of MAP with path PATH, return non-nil iff item NAME is present. | 549 "In submenu of MAP with path PATH, return non-nil if item NAME is present. |
550 MAP and PATH are defined as in `easy-menu-add-item'. | 550 MAP and PATH are defined as in `easy-menu-add-item'. |
551 NAME should be a string, the name of the element to be looked for." | 551 NAME should be a string, the name of the element to be looked for." |
552 (easy-menu-return-item (easy-menu-get-map map path) name)) | 552 (easy-menu-return-item (easy-menu-get-map map path) name)) |
553 | 553 |
554 (defun easy-menu-remove-item (map path name) | 554 (defun easy-menu-remove-item (map path name) |