diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9f4fd1b78b9..a108244d62c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2004-11-06 Andreas Schwab + + * emacs-lisp/easymenu.el (easy-menu-get-map): Fix last change. + 2004-11-06 Stefan Monnier * emacs-lisp/easymenu.el (easy-menu-get-map-look-for-name): Remove. diff --git a/lisp/emacs-lisp/easymenu.el b/lisp/emacs-lisp/easymenu.el index 91de4e670f7..7b18756fd7e 100644 --- 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)