43 |
MACRO is the name of the macro being defined. |
MACRO is the name of the macro being defined. |
44 |
DECL is a list `(declare ...)' containing the declarations. |
DECL is a list `(declare ...)' containing the declarations. |
45 |
The return value of this function is not used." |
The return value of this function is not used." |
46 |
(dolist (d (cdr decl)) |
;; We can't use `dolist' or `cadr' yet for bootstrapping reasons. |
47 |
(cond ((and (consp d) (eq (car d) 'indent)) |
(let (d) |
48 |
(put macro 'lisp-indent-function (cadr d))) |
;; Ignore the first element of `decl' (it's always `declare'). |
49 |
((and (consp d) (eq (car d) 'debug)) |
(while (setq decl (cdr decl)) |
50 |
(put macro 'edebug-form-spec (cadr d))) |
(setq d (car decl)) |
51 |
(t |
(cond ((and (consp d) (eq (car d) 'indent)) |
52 |
(message "Unknown declaration %s" d))))) |
(put macro 'lisp-indent-function (car (cdr d)))) |
53 |
|
((and (consp d) (eq (car d) 'debug)) |
54 |
|
(put macro 'edebug-form-spec (car (cdr d)))) |
55 |
|
(t |
56 |
|
(message "Unknown declaration %s" d)))))) |
57 |
|
|
58 |
(setq macro-declaration-function 'macro-declaration-function) |
(setq macro-declaration-function 'macro-declaration-function) |
59 |
|
|