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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 719b5a4948df559087762bf112de50937031e43a..ab373f14766df517219f23003ec76903aa873358 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,17 @@
+2008-04-29  Glenn Morris  <rgm@gnu.org>
+
+       * calendar/calendar.el (calendar-nth-named-absday)
+       (calendar-nth-named-day):
+       * calendar/diary-lib.el (diary-list-sexp-entries, diary-float):
+       * calendar/holidays.el (holiday-float): Doc fixes.
+
+       * emacs-lisp/check-declare.el (check-declare-errmsg): Fix counting in
+       the `full' case.
+
+       * org/org-agenda.el (calendar-iso-from-absolute):
+       * org/org.el (calendar-absolute-from-iso, calendar-iso-from-absolute):
+       Fix declarations.
+
 2008-04-28  Nick Roberts  <nickrob@snap.net.nz>
 
        * progmodes/gdb-ui.el (gdb-info-breakpoints-custom): Make breakpoint

diff --git a/lisp/emacs-lisp/check-declare.el b/lisp/emacs-lisp/check-declare.el
index 1b3d4dc2f6d97c368373d1b4a1f4bf8715e239c3..47dd57d75392ee1eba3070a2ef654105d639a99a 100644 (file)
--- 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"))