[Emacs-diffs] emacs/lisp ChangeLog emacs-lisp/elint.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/09/30 07:24:39

Modified files:
        lisp           : ChangeLog 
        lisp/emacs-lisp: elint.el 

Log message:
        (elint-init-form): Report declarations where the filename is not a 
string.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16293&r2=1.16294
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/emacs-lisp/elint.el?cvsroot=emacs&r1=1.31&r2=1.32

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16293
retrieving revision 1.16294
diff -u -b -r1.16293 -r1.16294
--- ChangeLog   30 Sep 2009 02:27:10 -0000      1.16293
+++ ChangeLog   30 Sep 2009 07:24:35 -0000      1.16294
@@ -1,10 +1,15 @@
 2009-09-30  Glenn Morris  <address@hidden>
 
+       * 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  <address@hidden>
 
        * files.el (safe-local-eval-forms): Fix typo.

Index: emacs-lisp/elint.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emacs-lisp/elint.el,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -b -r1.31 -r1.32
--- emacs-lisp/elint.el 22 Sep 2009 02:28:28 -0000      1.31
+++ emacs-lisp/elint.el 30 Sep 2009 07:24:39 -0000      1.32
@@ -420,9 +420,14 @@
    ((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)
+    (setq env (elint-env-add-func
+              env (cadr form)
                                  (if (or (< (length form) 4)
-                                         (eq (nth 3 form) t))
+                      (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)))