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

[Lute Kamstra]

Index: emacs/lisp/subr.el
diff -c emacs/lisp/subr.el:1.436 emacs/lisp/subr.el:1.437
*** emacs/lisp/subr.el:1.436    Wed Feb 23 21:04:14 2005
--- emacs/lisp/subr.el  Mon Mar 14 14:06:13 2005
***************
*** 37,63 ****
        (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)
--- 37,42 ----