Mercurial > emacs
changeset 105305:76b69a033cf7
(elint-init-form): Report declarations where the filename is not a string.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Wed, 30 Sep 2009 07:24:35 +0000 |
| parents | 2cbef47a062b |
| children | 7f2af67df0e3 |
| files | lisp/ChangeLog lisp/emacs-lisp/elint.el |
| diffstat | 2 files changed, 15 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Wed Sep 30 07:24:04 2009 +0000 +++ b/lisp/ChangeLog Wed Sep 30 07:24:35 2009 +0000 @@ -1,10 +1,15 @@ 2009-09-30 Glenn Morris <rgm@gnu.org> + * cedet/semantic/analyze/fcn.el (semantic-scope-find): Fix declaration. + * cedet/semantic/bovine/gcc.el (semantic-gcc-setup): Replace runtime use of CL function `remove-if-not'. * emacs-lisp/authors.el (authors-ignored-files): Add "js2-mode.el". + * emacs-lisp/elint.el (elint-init-form): Report declarations where the + filename is not a string. + 2009-09-29 Chong Yidong <cyd@stupidchicken.com> * files.el (safe-local-eval-forms): Fix typo.
--- a/lisp/emacs-lisp/elint.el Wed Sep 30 07:24:04 2009 +0000 +++ b/lisp/emacs-lisp/elint.el Wed Sep 30 07:24:35 2009 +0000 @@ -420,11 +420,16 @@ ((eq (car form) 'autoload) (setq env (elint-env-add-func env (cadr (cadr form)) 'unknown))) ((eq (car form) 'declare-function) - (setq env (elint-env-add-func env (cadr form) - (if (or (< (length form) 4) - (eq (nth 3 form) t)) - 'unknown - (nth 3 form))))) + (setq env (elint-env-add-func + env (cadr form) + (if (or (< (length form) 4) + (eq (nth 3 form) t) + (unless (stringp (nth 2 form)) + (elint-error "Malformed declaration for `%s'" + (cadr form)) + t)) + 'unknown + (nth 3 form))))) ((and (eq (car form) 'defalias) (listp (nth 2 form))) ;; If the alias points to something already in the environment, ;; add the alias to the environment with the same arguments.