From: Gerd Moellmann <gerd@gnu.org>
Date: Sun, 24 Mar 2002 19:46:58 +0000 (+0000)
Subject: (macro-declaration-function): New function.  Set the
X-Git-Tag: ttn-vms-21-2-B4~15994
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2c642c03dfc9b49880a673ef6946af74c7d8c99d;p=emacs.git

(macro-declaration-function): New function.  Set the
variable macro-declaration-function to it.
---

diff --git a/lisp/subr.el b/lisp/subr.el
index 189ec1f74e2..bca1fcf23d3 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -1,6 +1,6 @@
 ;;; subr.el --- basic lisp subroutines for Emacs
 
-;; Copyright (C) 1985, 86, 92, 94, 95, 99, 2000, 2001
+;; Copyright (C) 1985, 86, 92, 94, 95, 99, 2000, 2001, 2002
 ;;   Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -32,6 +32,24 @@ Each element of this list holds the arguments to one call to `defcustom'.")
 (defun custom-declare-variable-early (&rest arguments)
   (setq custom-declare-variable-list
 	(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."
+  (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)
+
 
 ;;;; Lisp language features.