# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1254295475 0
# Node ID 76b69a033cf78440fad1fd2db24643b8c96751cf
# Parent  2cbef47a062be56befd1fa7f9d383aad15349bb0
(elint-init-form): Report declarations where the filename is not a string.

diff -r 2cbef47a062b -r 76b69a033cf7 lisp/ChangeLog
--- 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.
diff -r 2cbef47a062b -r 76b69a033cf7 lisp/emacs-lisp/elint.el
--- 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.