diff options
| author | Glenn Morris <rgm@gnu.org> | 2008-04-29 03:40:00 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2008-04-29 03:40:00 +0000 |
| commit | 51d16e07bb6653e55d6981be70f688298941d6a0 (patch) | |
| tree | 955c9c4cd4053ceb6eff1fbb9a838e487d3016b7 /lisp/emacs-lisp/check-declare.el | |
| parent | f6aafbed9022b53beea980ab5516bf930b467a37 (diff) | |
| download | emacs-51d16e07bb6653e55d6981be70f688298941d6a0.tar.gz emacs-51d16e07bb6653e55d6981be70f688298941d6a0.tar.bz2 emacs-51d16e07bb6653e55d6981be70f688298941d6a0.zip | |
(check-declare-errmsg): Fix counting in the `full' case.
Diffstat (limited to 'lisp/emacs-lisp/check-declare.el')
| -rw-r--r-- | lisp/emacs-lisp/check-declare.el | 2 |
1 files changed, 1 insertions, 1 deletions
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")) |