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

2004-11-06 14:43:43 +00:00 · 2004-11-06 14:43:43 +00:00 · cffe562a9f
commit cffe562a9f
parent 98961e08e5
2 changed files with 5 additions and 1 deletions
--- a/lisp/emacs-lisp/easymenu.el
+++ b/lisp/emacs-lisp/easymenu.el
@ -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)