changeset 94459:e7a38a8c4a05

(check-declare-errmsg): Fix counting in the `full' case.
author Glenn Morris <rgm@gnu.org>
date Tue, 29 Apr 2008 03:39:09 +0000
parents 7ab159a31b3a
children 07262c086af2
files lisp/emacs-lisp/check-declare.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emacs-lisp/check-declare.el	Tue Apr 29 03:38:22 2008 +0000
+++ b/lisp/emacs-lisp/check-declare.el	Tue Apr 29 03:39:09 2008 +0000
@@ -115,7 +115,7 @@
         (when full
           (setq l 0)
           (dolist (e errlist)
-            (setq l (1+ l))))
+            (setq l (+ l (1- (length e))))))
         (format "%d problem%s found" l (if (= l 1) "" "s")))
     "OK"))