Change the statistics to not count the header entry.

diff --git a/misc/ChangeLog b/misc/ChangeLog
index 8cb312d25db2451d332144d9b03168da9377715c..5f0fa17959d2071115226934cb3a1530a057841b 100644 (file)
--- a/misc/ChangeLog
+++ b/misc/ChangeLog
@@ -1,3 +1,8 @@
+2001-07-07  Karl Eichwalder  <ke@suse.de>
+
+       * po-mode.el (po-compute-counters): Don't count the header entry.
+       Reported by Bernd Schandl.
+
 2001-07-01  Bruno Haible  <haible@clisp.cons.org>
 
        * po-mode.el (po-content-type-charset-alist): Add entries for

diff --git a/misc/po-mode.el b/misc/po-mode.el
index b6f7ae99499249e388d3d97404564c937f48a3b0..0f8d33f0e5c9357b3b031510438138a6db63c792 100644 (file)
--- a/misc/po-mode.el
+++ b/misc/po-mode.el
@@ -929,6 +929,11 @@ Then, update the mode line counters."
   (let ((position 0) (total 0) here)
     (save-excursion
       (goto-char (point-min))
+      ;; While counting, skip the header entry, for consistency with msgfmt.
+      (po-find-span-of-entry)
+      (when (string= (po-get-msgid nil) "")
+        (po-next-entry))
+      ;; Start counting
       (while (re-search-forward po-any-msgstr-regexp nil t)
        (and (= (% total 20) 0)
             (if flag