procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(macro-declaration-function): Move to emacs-lisp/byte-run.el.

Browse source
This commit is contained in:
Lute Kamstra 2005-03-14 14:07:38 +00:00
parent 623374a568
commit adf9acf885
2 changed files with 7 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/ChangeLog
View file

@ -1,5 +1,12 @@
2005-03-14 Lute Kamstra <lute@gnu.org>
* subr.el (macro-declaration-function): Move to
emacs-lisp/byte-run.el.
* emacs-lisp/byte-run.el (macro-declaration-function): Move from
subr.el.
(dont-compile, eval-when-compile, eval-and-compile): Use declare
to specify indentation.
* generic.el (define-generic-mode): Let generic-mode-list be a
list of strings; test membership with equal.

21
lisp/subr.el
View file

@ -36,27 +36,6 @@ Each element of this list holds the arguments to one call to `defcustom'.")
(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."
;; 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.