Mercurial > hg > xemacs-beta

comparison lisp/menubar.el @ 2571:979c4c930bb5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2005-02-07 19:30:07 by ben] fix bug in find-menu-item-1 menubar.el: Forgot to rename this when find-menu-item-1 was extracted.
author ben
date Mon, 07 Feb 2005 19:30:08 +0000
parents 9caf26dd924f
children 79c5457563f6
comparison
equal deleted inserted replaced
2570:269c376d86ef 2571:979c4c930bb5
200 (setq result (car rest) 200 (setq result (car rest)
201 rest nil) 201 rest nil)
202 (setq rest (cdr rest)))) 202 (setq rest (cdr rest))))
203 (if (cdr item-path-list) 203 (if (cdr item-path-list)
204 (cond ((consp result) 204 (cond ((consp result)
205 (find-menu-item (cdr result) (cdr item-path-list) result)) 205 (find-menu-item-1 (cdr result) (cdr item-path-list) result))
206 (result 206 (result
207 (signal 'error (list (gettext "not a submenu") result))) 207 (signal 'error (list (gettext "not a submenu") result)))
208 (t 208 (t
209 (signal 'error (list (gettext "no such submenu") 209 (signal 'error (list (gettext "no such submenu")
210 (car item-path-list))))) 210 (car item-path-list)))))