(easy-menu-get-map): Fix last change.

This commit is contained in:
Andreas Schwab 2004-11-06 14:43:43 +00:00
parent 98961e08e5
commit cffe562a9f
2 changed files with 5 additions and 1 deletions

View file

@ -1,3 +1,7 @@
2004-11-06 Andreas Schwab <schwab@suse.de>
* emacs-lisp/easymenu.el (easy-menu-get-map): Fix last change.
2004-11-06 Stefan Monnier <monnier@iro.umontreal.ca>
* emacs-lisp/easymenu.el (easy-menu-get-map-look-for-name): Remove.

View file

@ -622,7 +622,7 @@ In some cases we use that to select between the local and global maps."
(catch 'found
(if (and map (symbolp map) (not (keymapp map)))
(setq map (symbol-value map)))
(let ((maps (or map (current-active-maps))))
(let ((maps (if map (list map) (current-active-maps))))
;; Look for PATH in each map.
(unless map (push 'menu-bar path))
(dolist (name path)