# HG changeset patch
# User Lute Kamstra <lute@gnu.org>
# Date 1110809173 0
# Node ID 9d1976b50f1cc04ac54d4756d3009c739473c04b
# Parent  e9f1d42f7fc08145c6c65e63eb22da5b960fd1f4
(macro-declaration-function): Move to emacs-lisp/byte-run.el.

diff -r e9f1d42f7fc0 -r 9d1976b50f1c lisp/subr.el
--- 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)