(check-declare-errmsg): Fix counting in the `full' case.

2008-04-29 03:40:00 +00:00 · 2008-04-29 03:40:00 +00:00 · 51d16e07bb
commit 51d16e07bb
parent f6aafbed90
2 changed files with 15 additions and 1 deletions
--- a/lisp/emacs-lisp/check-declare.el
+++ b/lisp/emacs-lisp/check-declare.el
@ -115,7 +115,7 @@ With optional argument FULL, sums the number of elements in each element."
        (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"))