129 |
(put variable 'byte-obsolete-variable (cons new when)) |
(put variable 'byte-obsolete-variable (cons new when)) |
130 |
variable) |
variable) |
131 |
|
|
132 |
|
(defmacro define-obsolete-variable-alias (variable new |
133 |
|
&optional when docstring) |
134 |
|
"Make VARIABLE a variable alias for NEW and warn that VARIABLE is obsolete. |
135 |
|
If provided, WHEN should be a string indicating when VARIABLE was |
136 |
|
first made obsolete, for example a date or a release number. The |
137 |
|
optional argument DOCSTRING specifies the documentation string |
138 |
|
for VARIABLE; if DOCSTRING is omitted or nil, VARIABLE uses the |
139 |
|
documentation string of NEW unless it already has one." |
140 |
|
`(progn |
141 |
|
(defvaralias ,variable ,new ,docstring) |
142 |
|
(make-obsolete-variable ,variable ,new ,when))) |
143 |
|
|
144 |
(defmacro dont-compile (&rest body) |
(defmacro dont-compile (&rest body) |
145 |
"Like `progn', but the body always runs interpreted (not compiled). |
"Like `progn', but the body always runs interpreted (not compiled). |
146 |
If you think you need this, you're probably making a mistake somewhere." |
If you think you need this, you're probably making a mistake somewhere." |