Mercurial > emacs
changeset 60598:9d1976b50f1c
(macro-declaration-function): Move to emacs-lisp/byte-run.el.
| author | Lute Kamstra <lute@gnu.org> |
|---|---|
| date | Mon, 14 Mar 2005 14:06:13 +0000 |
| parents | e9f1d42f7fc0 |
| children | 2ee584622d07 |
| files | lisp/subr.el |
| diffstat | 1 files changed, 0 insertions(+), 21 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/subr.el Mon Mar 14 14:05:13 2005 +0000 +++ b/lisp/subr.el Mon Mar 14 14:06:13 2005 +0000 @@ -37,27 +37,6 @@ (cons arguments custom-declare-variable-list))) -(defun macro-declaration-function (macro decl) - "Process a declaration found in a macro definition. -This is set as the value of the variable `macro-declaration-function'. -MACRO is the name of the macro being defined. -DECL is a list `(declare ...)' containing the declarations. -The return value of this function is not used." - ;; We can't use `dolist' or `cadr' yet for bootstrapping reasons. - (let (d) - ;; Ignore the first element of `decl' (it's always `declare'). - (while (setq decl (cdr decl)) - (setq d (car decl)) - (cond ((and (consp d) (eq (car d) 'indent)) - (put macro 'lisp-indent-function (car (cdr d)))) - ((and (consp d) (eq (car d) 'debug)) - (put macro 'edebug-form-spec (car (cdr d)))) - (t - (message "Unknown declaration %s" d)))))) - -(setq macro-declaration-function 'macro-declaration-function) - - ;;;; Lisp language features. (defalias 'not 'null)