[Emacs-diffs] Changes to emacs/lisp/subr.el

[Stefan Monnier]

Index: emacs/lisp/subr.el
diff -c emacs/lisp/subr.el:1.351 emacs/lisp/subr.el:1.352
*** emacs/lisp/subr.el:1.351    Sat May 17 18:00:40 2003
--- emacs/lisp/subr.el  Sat May 17 22:31:19 2003
***************
*** 43,55 ****
  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."
!   (dolist (d (cdr decl))
!     (cond ((and (consp d) (eq (car d) 'indent))
!          (put macro 'lisp-indent-function (cadr d)))
!         ((and (consp d) (eq (car d) 'debug))
!          (put macro 'edebug-form-spec (cadr d)))
!         (t
!          (message "Unknown declaration %s" d)))))
  
  (setq macro-declaration-function 'macro-declaration-function)
  
--- 43,59 ----
  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)