1 |
;;; subr.el --- basic lisp subroutines for Emacs |
;;; subr.el --- basic lisp subroutines for Emacs |
2 |
|
|
3 |
;; Copyright (C) 1985, 86, 92, 94, 95, 99, 2000, 2001 |
;; Copyright (C) 1985, 86, 92, 94, 95, 99, 2000, 2001, 2002 |
4 |
;; Free Software Foundation, Inc. |
;; Free Software Foundation, Inc. |
5 |
|
|
6 |
;; This file is part of GNU Emacs. |
;; This file is part of GNU Emacs. |
32 |
(defun custom-declare-variable-early (&rest arguments) |
(defun custom-declare-variable-early (&rest arguments) |
33 |
(setq custom-declare-variable-list |
(setq custom-declare-variable-list |
34 |
(cons arguments custom-declare-variable-list))) |
(cons arguments custom-declare-variable-list))) |
35 |
|
|
36 |
|
|
37 |
|
(defun macro-declaration-function (macro decl) |
38 |
|
"Process a declaration found in a macro definition. |
39 |
|
This is set as the value of the variable `macro-declaration-function'. |
40 |
|
MACRO is the name of the macro being defined. |
41 |
|
DECL is a list `(declare ...)' containing the declarations. |
42 |
|
The return value of this function is not used." |
43 |
|
(dolist (d (cdr decl)) |
44 |
|
(cond ((and (consp d) (eq (car d) 'indent)) |
45 |
|
(put macro 'lisp-indent-function (cadr d))) |
46 |
|
((and (consp d) (eq (car d) 'debug)) |
47 |
|
(put macro 'edebug-form-spec (cadr d))) |
48 |
|
(t |
49 |
|
(message "Unknown declaration %s" d))))) |
50 |
|
|
51 |
|
(setq macro-declaration-function 'macro-declaration-function) |
52 |
|
|
53 |
|
|
54 |
;;;; Lisp language features. |
;;;; Lisp language features. |
55 |
|
|