/[emacs]/emacs/lisp/emacs-lisp/easymenu.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/easymenu.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.49 by eliz, Wed May 15 16:49:54 2002 UTC revision 1.50 by monnier, Wed May 15 22:14:16 2002 UTC
# Line 410  KEY does not have to be a symbol, and co Line 410  KEY does not have to be a symbol, and co
410    "Return t if NAME is the name of menu item ITEM.    "Return t if NAME is the name of menu item ITEM.
411  NAME can be either a string, or a symbol."  NAME can be either a string, or a symbol."
412    (if (consp item)    (if (consp item)
413        (if (symbolp name)        (if (symbolp name)
414            (eq (car-safe item) name)            (eq (car-safe item) name)
415          (if (stringp name)          (if (stringp name)
416              ;; Match against the text that is displayed to the user.              ;; Match against the text that is displayed to the user.
# Line 434  When non-nil, NOEXP indicates that CALLB Line 434  When non-nil, NOEXP indicates that CALLB
434           (make-symbol (format "menu-function-%d" easy-menu-item-count))))           (make-symbol (format "menu-function-%d" easy-menu-item-count))))
435      (setq easy-menu-item-count (1+ easy-menu-item-count))      (setq easy-menu-item-count (1+ easy-menu-item-count))
436      (fset command      (fset command
437            (if (or (keymapp callback) noexp) callback            (if (or (keymapp callback) (functionp callback) noexp) callback
438              `(lambda () (interactive) ,callback)))              `(lambda () (interactive) ,callback)))
439      command))      command))
440    

Legend:
Removed from v.1.49  
changed lines
  Added in v.1.50

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26