diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/emacs-lisp/byte-run.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/byte-run.el b/lisp/emacs-lisp/byte-run.el index 6a21a0c909d..81f8f11044e 100644 --- a/lisp/emacs-lisp/byte-run.el +++ b/lisp/emacs-lisp/byte-run.el | |||
| @@ -45,12 +45,13 @@ So far, FUNCTION can only be a symbol, not a lambda expression." | |||
| 45 | ;; `macro-declaration-function' are both obsolete (as marked at the end of this | 45 | ;; `macro-declaration-function' are both obsolete (as marked at the end of this |
| 46 | ;; file) but used in many .elc files. | 46 | ;; file) but used in many .elc files. |
| 47 | 47 | ||
| 48 | (defvar macro-declaration-function #'macro-declaration-function | 48 | (with-suppressed-warnings ((obsolete macro-declaration-function)) |
| 49 | "Function to process declarations in a macro definition. | 49 | (defvar macro-declaration-function #'macro-declaration-function |
| 50 | "Function to process declarations in a macro definition. | ||
| 50 | The function will be called with two args MACRO and DECL. | 51 | The function will be called with two args MACRO and DECL. |
| 51 | MACRO is the name of the macro being defined. | 52 | MACRO is the name of the macro being defined. |
| 52 | DECL is a list `(declare ...)' containing the declarations. | 53 | DECL is a list `(declare ...)' containing the declarations. |
| 53 | The value the function returns is not used.") | 54 | The value the function returns is not used.")) |
| 54 | 55 | ||
| 55 | (defalias 'macro-declaration-function | 56 | (defalias 'macro-declaration-function |
| 56 | #'(lambda (macro decl) | 57 | #'(lambda (macro decl) |