diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2003-03-16 00:39:23 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2003-03-16 00:39:23 +0000 |
| commit | 26647ce2187e1e80f7ba312057e148798959d43b (patch) | |
| tree | 44c7b351d555d0ed93b658f53e5f22f74896640e /lisp/emacs-lisp | |
| parent | d378869e0452cfd525b9a6dd4568002236492ca2 (diff) | |
| download | emacs-26647ce2187e1e80f7ba312057e148798959d43b.tar.gz emacs-26647ce2187e1e80f7ba312057e148798959d43b.tar.bz2 emacs-26647ce2187e1e80f7ba312057e148798959d43b.zip | |
(easy-menu-name-match): Catch any error that member-ignore-case might signal.
(easy-menu-add-item): Default to the global map, as documented.
(easy-menu-convert-item-1): Use match-string.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/easymenu.el | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/easymenu.el b/lisp/emacs-lisp/easymenu.el index 43ff02e1b22..47880408d75 100644 --- a/lisp/emacs-lisp/easymenu.el +++ b/lisp/emacs-lisp/easymenu.el @@ -343,8 +343,7 @@ MENU, just change it, otherwise put it last in MENU." (postfix (if (< (match-end 1) (match-end 0)) (substring keys (match-end 1)))) - (cmd (intern (substring keys (match-beginning 2) - (match-end 2))))) + (cmd (intern (match-string 2 keys)))) (setq keys (and (or prefix postfix) (cons prefix postfix))) (setq keys @@ -421,10 +420,12 @@ NAME can be either a string, or a symbol." (eq (car-safe item) name) (if (stringp name) ;; Match against the text that is displayed to the user. - (or (member-ignore-case name item) + (or (condition-case nil (member-ignore-case name item) + (error nil)) ;`item' might not be a proper list. ;; Also check the string version of the symbol name, ;; for backwards compatibility. - (eq (car-safe item) (intern name))))))) + (eq (car-safe item) (intern name)) + (eq (car-safe item) (easy-menu-intern name))))))) (defun easy-menu-always-true (x) "Return true if form X never evaluates to nil." @@ -515,6 +516,9 @@ submenu is then traversed recursively with the remaining elements of PATH. ITEM is either defined as in `easy-menu-define' or a non-nil value returned by `easy-menu-item-present-p' or `easy-menu-remove-item' or a menu defined earlier by `easy-menu-define' or `easy-menu-create-menu'." + (unless map + (setq map (current-global-map)) + (push 'menu-bar path)) (setq map (easy-menu-get-map map path (and (null map) (null path) (stringp (car-safe item)) |