# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1209440349 0
# Node ID e7a38a8c4a05f2909a068779ba831d0626a9e253
# Parent  7ab159a31b3a66eaebe6331eba62575b445acdcc
(check-declare-errmsg): Fix counting in the `full' case.

diff -r 7ab159a31b3a -r e7a38a8c4a05 lisp/emacs-lisp/check-declare.el
--- 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"))