Mercurial > hg > xemacs-beta

comparison lisp/prim/obsolete.el @ 181:bfd6434d15b3 r20-3b17

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b17
author cvs
date Mon, 13 Aug 2007 09:53:19 +0200
parents 8eaf7971accc
children 489f57a838ef
comparison
equal deleted inserted replaced
180:add28d59e586 181:bfd6434d15b3
46 (make-compatible oldfun newfun)) 46 (make-compatible oldfun newfun))
47 47
48 (defsubst define-obsolete-variable-alias (oldvar newvar) 48 (defsubst define-obsolete-variable-alias (oldvar newvar)
49 "Define OLDVAR as an obsolete alias for variable NEWVAR. 49 "Define OLDVAR as an obsolete alias for variable NEWVAR.
50 This makes referencing or setting OLDVAR equivalent to referencing or 50 This makes referencing or setting OLDVAR equivalent to referencing or
51 setting NEWVAR and marks OLDVAR as obsolete." 51 setting NEWVAR and marks OLDVAR as obsolete.
52 (defvaralias oldvar newvar) 52 If OLDVAR was bound and NEWVAR was not, Set NEWVAR to OLDVAR.
53 (make-obsolete-variable oldvar newvar)) 53
54 Note: Use this before any other references (defvar/defcustom) to NEWVAR"
55 (let ((needs-setting (and (boundp oldvar) (not (boundp newvar))))
56 (value (and (boundp oldvar) (symbol-value oldvar))))
57 (defvaralias oldvar newvar)
58 (make-obsolete-variable oldvar newvar)
59 (and needs-setting (set newvar value))))
54 60
55 (defsubst define-compatible-variable-alias (oldvar newvar) 61 (defsubst define-compatible-variable-alias (oldvar newvar)
56 "Define OLDVAR as a compatible alias for variable NEWVAR. 62 "Define OLDVAR as a compatible alias for variable NEWVAR.
57 This makes referencing or setting OLDVAR equivalent to referencing or 63 This makes referencing or setting OLDVAR equivalent to referencing or
58 setting NEWVAR and marks OLDVAR as provided for compatibility only." 64 setting NEWVAR and marks OLDVAR as provided for compatibility only."