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

[Stefan Monnier]

Index: emacs/lisp/emacs-lisp/easymenu.el
diff -c emacs/lisp/emacs-lisp/easymenu.el:1.49 
emacs/lisp/emacs-lisp/easymenu.el:1.50
*** emacs/lisp/emacs-lisp/easymenu.el:1.49      Wed May 15 12:49:54 2002
--- emacs/lisp/emacs-lisp/easymenu.el   Wed May 15 18:14:16 2002
***************
*** 410,416 ****
    "Return t if NAME is the name of menu item ITEM.
  NAME can be either a string, or a symbol."
    (if (consp item)
!       (if (symbolp name) 
          (eq (car-safe item) name)
        (if (stringp name)
            ;; Match against the text that is displayed to the user.
--- 410,416 ----
    "Return t if NAME is the name of menu item ITEM.
  NAME can be either a string, or a symbol."
    (if (consp item)
!       (if (symbolp name)
          (eq (car-safe item) name)
        (if (stringp name)
            ;; Match against the text that is displayed to the user.
***************
*** 434,440 ****
         (make-symbol (format "menu-function-%d" easy-menu-item-count))))
      (setq easy-menu-item-count (1+ easy-menu-item-count))
      (fset command
!         (if (or (keymapp callback) noexp) callback
            `(lambda () (interactive) ,callback)))
      command))
  
--- 434,440 ----
         (make-symbol (format "menu-function-%d" easy-menu-item-count))))
      (setq easy-menu-item-count (1+ easy-menu-item-count))
      (fset command
!         (if (or (keymapp callback) (functionp callback) noexp) callback
            `(lambda () (interactive) ,callback)))
      command))