Mercurial > hg > xemacs-beta

comparison lisp/menubar.el @ 446:1ccc32a20af4 r21-2-38

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-38
author cvs
date Mon, 13 Aug 2007 11:37:21 +0200
parents 576fb035e263
children 0784d089fdc9
comparison
equal deleted inserted replaced
445:34f3776fcf0e 446:1ccc32a20af4
359 PATH is a list of strings which identify the position of the menu item in 359 PATH is a list of strings which identify the position of the menu item in
360 the menu hierarchy. (\"File\" \"Save\") means the menu item called \"Save\" 360 the menu hierarchy. (\"File\" \"Save\") means the menu item called \"Save\"
361 under the toplevel \"File\" menu. (\"Menu\" \"Foo\" \"Item\") means the 361 under the toplevel \"File\" menu. (\"Menu\" \"Foo\" \"Item\") means the
362 menu item called \"Item\" under the \"Foo\" submenu of \"Menu\". 362 menu item called \"Item\" under the \"Foo\" submenu of \"Menu\".
363 NEW-NAME is the string that the menu item will be printed as from now on." 363 NEW-NAME is the string that the menu item will be printed as from now on."
364 (or (stringp new-name) 364 (check-type new-name string)
365 (setq new-name (wrong-type-argument 'stringp new-name)))
366 (let* ((menubar current-menubar) 365 (let* ((menubar current-menubar)
367 (pair (find-menu-item menubar path)) 366 (pair (find-menu-item menubar path))
368 (item (car pair)) 367 (item (car pair))
369 (menu (cdr pair))) 368 (menu (cdr pair)))
370 (or item 369 (or item