[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/subr.el
From: |
Lute Kamstra |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/subr.el |
Date: |
Mon, 14 Mar 2005 09:06:14 -0500 |
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 ----
- [Emacs-diffs] Changes to emacs/lisp/subr.el,
Lute Kamstra <=