diff options
| author | Bruno Haible <bruno@clisp.org> | 2001-08-23 13:05:07 +0000 |
|---|---|---|
| committer | Bruno Haible <bruno@clisp.org> | 2001-08-23 13:05:07 +0000 |
| commit | 1f934efb9fe52be0bdca7c4e0bae5a0dbf6f6d80 (patch) | |
| tree | e607688d72715325b877c8bcd764826e228d170e /misc/po-mode.el | |
| parent | dd07a0dc970b6dbbb801d64232404211dbd00e56 (diff) | |
| download | external_gettext-1f934efb9fe52be0bdca7c4e0bae5a0dbf6f6d80.zip external_gettext-1f934efb9fe52be0bdca7c4e0bae5a0dbf6f6d80.tar.gz external_gettext-1f934efb9fe52be0bdca7c4e0bae5a0dbf6f6d80.tar.bz2 | |
po-compute-counters fix
Diffstat (limited to 'misc/po-mode.el')
| -rw-r--r-- | misc/po-mode.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/misc/po-mode.el b/misc/po-mode.el index c5be414..c5c4cf0 100644 --- 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) |