Mercurial > emacs
changeset 44129:444bd245e176
(macro-declaration-function): New function. Set the
variable macro-declaration-function to it.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Sun, 24 Mar 2002 19:46:58 +0000 |
| parents | f98a45180266 |
| children | a9c023f8b14b |
| files | lisp/subr.el |
| diffstat | 1 files changed, 19 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/subr.el Sun Mar 24 19:17:10 2002 +0000 +++ b/lisp/subr.el Sun Mar 24 19:46:58 2002 +0000 @@ -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 @@ (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.