[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/easymenu.el

[Andreas Schwab]

Index: emacs/lisp/emacs-lisp/easymenu.el
diff -c emacs/lisp/emacs-lisp/easymenu.el:1.67 
emacs/lisp/emacs-lisp/easymenu.el:1.68
*** emacs/lisp/emacs-lisp/easymenu.el:1.67      Sat Nov  6 10:01:56 2004
--- emacs/lisp/emacs-lisp/easymenu.el   Sat Nov  6 14:42:36 2004
***************
*** 622,628 ****
        (catch 'found
          (if (and map (symbolp map) (not (keymapp map)))
              (setq map (symbol-value map)))
!         (let ((maps (or map (current-active-maps))))
            ;; Look for PATH in each map.
            (unless map (push 'menu-bar path))
            (dolist (name path)
--- 622,628 ----
        (catch 'found
          (if (and map (symbolp map) (not (keymapp map)))
              (setq map (symbol-value map)))
!         (let ((maps (if map (list map) (current-active-maps))))
            ;; Look for PATH in each map.
            (unless map (push 'menu-bar path))
            (dolist (name path)