po-compute-counters fix

diff --git a/misc/ChangeLog b/misc/ChangeLog
index 2252a3c5b66e332774a49f4770f3fbce33ab9c31..2e1661c5dd5d194788706a6f3b97c25c268d6a68 100644 (file)
--- a/misc/ChangeLog
+++ b/misc/ChangeLog
@@ -1,3 +1,9 @@
+2001-08-23  Karl Eichwalder  <ke@suse.de>
+
+       * po-mode.el (po-compute-counters): First save `current'
+       po-start-of-msgstr; use it to set `position' while looping over all
+       entries.
+
 2001-08-20  Karl Eichwalder  <ke@suse.de>
 
        * po-mode.el (po-mode): Add newlines to fix layout problem calling

diff --git a/misc/po-mode.el b/misc/po-mode.el
index c5be414ca191262a9084aedcdeb6daf261a2fa48..c5c4cf08c2b4c43ea6c532a5e53057a8c773e459 100644 (file)
--- a/misc/po-mode.el
+++ b/misc/po-mode.el
@@ -987,8 +987,11 @@ Then, update the mode line counters."
        po-fuzzy-counter 0
        po-untranslated-counter 0
        po-obsolete-counter 0)
-  (let ((position 0) (total 0) here)
+  (let ((position 0) (total 0) current here)
+    ;; FIXME `here' looks obsolete / 2001-08-23 03:54:26 CEST -ke-
     (save-excursion
+      (po-find-span-of-entry)
+      (setq current po-start-of-msgstr)
       (goto-char (point-min))
       ;; While counting, skip the header entry, for consistency with msgfmt.
       (po-find-span-of-entry)
@@ -1004,7 +1007,7 @@ Then, update the mode line counters."
                  (setq here (point))
                  (goto-char (match-beginning 0))
                  (setq total (1+ total))
-                 (and flag (eq (point) po-start-of-msgstr) (setq position total))
+                 (and flag (eq (point) current) (setq position total))
                  (cond ((eq (following-char) ?#)
                         (setq po-obsolete-counter (1+ po-obsolete-counter)))
                        ((looking-at po-untranslated-regexp)