From 51d16e07bb6653e55d6981be70f688298941d6a0 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 29 Apr 2008 03:40:00 +0000 Subject: (check-declare-errmsg): Fix counting in the `full' case. --- lisp/emacs-lisp/check-declare.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lisp/emacs-lisp/check-declare.el') diff --git a/lisp/emacs-lisp/check-declare.el b/lisp/emacs-lisp/check-declare.el index 1b3d4dc2f6d..47dd57d7539 100644 --- 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")) -- cgit v1.2.3