/[emacs]/emacs/lisp/subr.el
ViewVC logotype

Diff of /emacs/lisp/subr.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.351 by monnier, Sat May 17 22:00:40 2003 UTC revision 1.352 by monnier, Sun May 18 02:31:19 2003 UTC
# Line 43  This is set as the value of the variable Line 43  This is set as the value of the variable
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    

Legend:
Removed from v.1.351  
changed lines
  Added in v.1.352

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26