Mercurial > hg > xemacs-beta

comparison lisp/prim/obsolete.el @ 169:15872534500d r20-3b11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b11
author cvs
date Mon, 13 Aug 2007 09:46:53 +0200
parents 3bb7ccffb0c0
children 8eaf7971accc
comparison
equal deleted inserted replaced
168:9851d5c6556e 169:15872534500d
345 (or item-name (error "must specify an item name")) 345 (or item-name (error "must specify an item name"))
346 (add-menu-button menu-path (vector item-name function enabled-p) before)) 346 (add-menu-button menu-path (vector item-name function enabled-p) before))
347 (make-obsolete 'add-menu-item 'add-menu-button) 347 (make-obsolete 'add-menu-item 'add-menu-button)
348 348
349 (defun add-menu (menu-path menu-name menu-items &optional before) 349 (defun add-menu (menu-path menu-name menu-items &optional before)
350 "Obsolete. See the function `add-submenu'." 350 "See the function `add-submenu'."
351 (or menu-name (error (gettext "must specify a menu name"))) 351 (or menu-name (error (gettext "must specify a menu name")))
352 (or menu-items (error (gettext "must specify some menu items"))) 352 (or menu-items (error (gettext "must specify some menu items")))
353 (add-submenu menu-path (cons menu-name menu-items) before)) 353 (add-submenu menu-path (cons menu-name menu-items) before))
354 (make-obsolete 'add-menu 'add-submenu) 354 ;; Can't make this obsolete. easymenu depends on it.
355 (make-compatible 'add-menu 'add-submenu)
355 356
356 (define-obsolete-function-alias 'popup-menu-up-p 'popup-up-p) 357 (define-obsolete-function-alias 'popup-menu-up-p 'popup-up-p)
357 358
358 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; minibuffer 359 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; minibuffer
359 360