mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-29 11:02:01 +00:00
Code Issues Releases Activity

(macro-declaration-function): Disallow declare specs with lengths of 3

Browse Source 
or more.
This commit is contained in:
Chong Yidong 2008-11-30 03:00:18 +00:00
parent 5829445e82
commit 15183da671
1 changed files with 13 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
lisp/emacs-lisp/byte-run.el
View File

@ -45,14 +45,19 @@ The return value of this function is not used."
;; Ignore the first element of `decl' (it's always `declare'). ;; Ignore the first element of `decl' (it's always `declare').
(while (setq decl (cdr decl)) (while (setq decl (cdr decl))
(setq d (car decl)) (setq d (car decl))
(cond ((and (consp d) (eq (car d) 'indent)) (if (and (consp d)
(put macro 'lisp-indent-function (car (cdr d)))) (listp (cdr d))
((and (consp d) (eq (car d) 'debug)) (null (cdr (cdr d))))
(put macro 'edebug-form-spec (car (cdr d)))) (cond ((eq (car d) 'indent)
((and (consp d) (eq (car d) 'doc-string)) (put macro 'lisp-indent-function (car (cdr d))))
(put macro 'doc-string-elt (car (cdr d)))) ((eq (car d) 'debug)
(t (put macro 'edebug-form-spec (car (cdr d))))
(message "Unknown declaration %s" d)))))) ((eq (car d) 'doc-string)
(put macro 'doc-string-elt (car (cdr d))))
(t
(message "Unknown declaration %s" d)))
(message "Invalid declaration %s" d)))))
(setq macro-declaration-function 'macro-declaration-function) (setq macro-declaration-function 'macro-declaration-function)