[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/subr.el
From: |
Gerd Moellmann |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/subr.el |
Date: |
Sun, 24 Mar 2002 14:46:58 -0500 |
Index: emacs/lisp/subr.el
diff -c emacs/lisp/subr.el:1.291 emacs/lisp/subr.el:1.292
*** emacs/lisp/subr.el:1.291 Mon Mar 11 08:31:50 2002
--- emacs/lisp/subr.el Sun Mar 24 14:46:58 2002
***************
*** 1,6 ****
;;; subr.el --- basic lisp subroutines for Emacs
! ;; Copyright (C) 1985, 86, 92, 94, 95, 99, 2000, 2001
;; Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
--- 1,6 ----
;;; subr.el --- basic lisp subroutines for Emacs
! ;; Copyright (C) 1985, 86, 92, 94, 95, 99, 2000, 2001, 2002
;; Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
***************
*** 32,37 ****
--- 32,55 ----
(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.