Mercurial > emacs

comparison lisp/emacs-lisp/byte-run.el @ 90180:62afea0771d8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-51 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 289-301) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 68) - Update from CVS
author Miles Bader <miles@gnu.org>
date Thu, 12 May 2005 03:41:19 +0000
parents 08185296b491 ba1ec4834766
children f042e7c0fe20
comparison
equal deleted inserted replaced
90179:b745036dab36 90180:62afea0771d8
114 (put function 'byte-obsolete-info (list new handler when))) 114 (put function 'byte-obsolete-info (list new handler when)))
115 function) 115 function)
116 116
117 (defmacro define-obsolete-function-alias (function new 117 (defmacro define-obsolete-function-alias (function new
118 &optional when docstring) 118 &optional when docstring)
119 "Set FUNCTION's function definition to NEW and warn that FUNCTION is obsolete. 119 "Set FUNCTION's function definition to NEW and mark it obsolete.
120 If provided, WHEN should be a string indicating when FUNCTION was 120
121 first made obsolete, for example a date or a release number. The 121 \(define-obsolete-function-alias 'old-fun 'new-fun \"22.1\" \"old-fun's doc.\")
122 optional argument DOCSTRING specifies the documentation string 122
123 for FUNCTION; if DOCSTRING is omitted or nil, FUNCTION uses the 123 is equivalent to the following two lines of code:
124 documentation string of NEW unluess it already has one." 124
125 \(defalias 'old-fun 'new-fun \"old-fun's doc.\")
126 \(make-obsolete 'old-fun 'new-fun \"22.1\")
127
128 See the docstrings of `defalias' and `make-obsolete' for more details."
125 `(progn 129 `(progn
126 (defalias ,function ,new ,docstring) 130 (defalias ,function ,new ,docstring)
127 (make-obsolete ,function ,new ,when))) 131 (make-obsolete ,function ,new ,when)))
128 132
129 (defun make-obsolete-variable (variable new &optional when) 133 (defun make-obsolete-variable (variable new &optional when)
141 (put variable 'byte-obsolete-variable (cons new when)) 145 (put variable 'byte-obsolete-variable (cons new when))
142 variable) 146 variable)
143 147
144 (defmacro define-obsolete-variable-alias (variable new 148 (defmacro define-obsolete-variable-alias (variable new
145 &optional when docstring) 149 &optional when docstring)
146 "Make VARIABLE a variable alias for NEW and warn that VARIABLE is obsolete. 150 "Make VARIABLE a variable alias for NEW and mark it obsolete.
147 If provided, WHEN should be a string indicating when VARIABLE was 151
148 first made obsolete, for example a date or a release number. The 152 \(define-obsolete-variable-alias 'old-var 'new-var \"22.1\" \"old-var's doc.\")
149 optional argument DOCSTRING specifies the documentation string 153
150 for VARIABLE; if DOCSTRING is omitted or nil, VARIABLE uses the 154 is equivalent to the following two lines of code:
151 documentation string of NEW unless it already has one." 155
156 \(defvaralias 'old-var 'new-var \"old-var's doc.\")
157 \(make-obsolete-variable 'old-var 'new-var \"22.1\")
158
159 See the docstrings of `defvaralias' and `make-obsolete-variable' or
160 Info node `(elisp)Variable Aliases' for more details."
152 `(progn 161 `(progn
153 (defvaralias ,variable ,new ,docstring) 162 (defvaralias ,variable ,new ,docstring)
154 (make-obsolete-variable ,variable ,new ,when))) 163 (make-obsolete-variable ,variable ,new ,when)))
155 164
156 (defmacro dont-compile (&rest body) 165 (defmacro dont-compile (&rest body)