Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/lisp/prim/obsolete.el	Mon Aug 13 09:45:48 2007 +0200
+++ b/lisp/prim/obsolete.el	Mon Aug 13 09:46:53 2007 +0200
@@ -347,11 +347,12 @@
 (make-obsolete 'add-menu-item 'add-menu-button)
 
 (defun add-menu (menu-path menu-name menu-items &optional before)
-  "Obsolete.  See the function `add-submenu'."
+  "See the function `add-submenu'."
   (or menu-name (error (gettext "must specify a menu name")))
   (or menu-items (error (gettext "must specify some menu items")))
   (add-submenu menu-path (cons menu-name menu-items) before))
-(make-obsolete 'add-menu 'add-submenu)
+;; Can't make this obsolete.  easymenu depends on it.
+(make-compatible 'add-menu 'add-submenu)
 
 (define-obsolete-function-alias 'popup-menu-up-p 'popup-up-p)