From: Bruno Haible <bruno@clisp.org>
Date: Mon, 9 Jul 2001 13:56:00 +0000 (+0000)
Subject: Change the statistics to not count the header entry.
X-Git-Tag: v0.11~620
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=0c84313146a799b610ea489cfd1c3273bae2f891;p=thirdparty%2Fgettext.git

Change the statistics to not count the header entry.
---

diff --git a/misc/ChangeLog b/misc/ChangeLog
index 8cb312d25..5f0fa1795 100644
--- 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 b6f7ae994..0f8d33f0e 100644
--- 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