Mercurial > hg > xemacs-beta

comparison lisp/obsolete.el @ 442:abe6d1db359e r21-2-36

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-36
author cvs
date Mon, 13 Aug 2007 11:35:02 +0200
parents 8de8e3f6228a
children 576fb035e263
comparison
equal deleted inserted replaced
441:72a7cfa4a488 442:abe6d1db359e
217 (add-menu-button menu-path (vector item-name function enabled-p) before)) 217 (add-menu-button menu-path (vector item-name function enabled-p) before))
218 (make-obsolete 'add-menu-item 'add-menu-button) 218 (make-obsolete 'add-menu-item 'add-menu-button)
219 219
220 (defun add-menu (menu-path menu-name menu-items &optional before) 220 (defun add-menu (menu-path menu-name menu-items &optional before)
221 "See the function `add-submenu'." 221 "See the function `add-submenu'."
222 (or menu-name (error (gettext "must specify a menu name"))) 222 (or menu-name (error "must specify a menu name"))
223 (or menu-items (error (gettext "must specify some menu items"))) 223 (or menu-items (error "must specify some menu items"))
224 (add-submenu menu-path (cons menu-name menu-items) before)) 224 (add-submenu menu-path (cons menu-name menu-items) before))
225 ;; Can't make this obsolete. easymenu depends on it. 225 ;; Can't make this obsolete. easymenu depends on it.
226 (make-compatible 'add-menu 'add-submenu) 226 (make-compatible 'add-menu 'add-submenu)
227 227
228 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; minibuffer 228 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; minibuffer