Fix po-next-translated-entry.

diff --git a/misc/ChangeLog b/misc/ChangeLog
index 512cc8022093707abfc0065e73903b17c95450c0..b8299b5a623ec8480585e229f8c70d28638458f6 100644 (file)
--- a/misc/ChangeLog
+++ b/misc/ChangeLog
@@ -1,3 +1,8 @@
+2001-08-23  Karl Eichwalder  <ke@suse.de>
+
+       * po-mode.el (po-next-translated-entry): Actually search for
+       'translated', not 'untranslated'.
+
 2001-11-01  Karl Eichwalder  <ke@suse.de>
 
        * po-mode.el (po-msgfmt-version-check): Also accept pre-release

diff --git a/misc/po-mode.el b/misc/po-mode.el
index 1ff687a44db6a914de3d62818a0952968cf287b0..80dfcb23515fa9cf2f869bdfa64cd1f2066cc6e2 100644 (file)
--- a/misc/po-mode.el
+++ b/misc/po-mode.el
@@ -1562,18 +1562,18 @@ which does not match exactly.")
 ;; Translated entries.
 
 (defun po-next-translated-entry ()
-  "Find the next untranslated entry, wrapping around if necessary."
+  "Find the next translated entry, wrapping around if necessary."
   (interactive)
   (if (= po-translated-counter 0)
       (error (_"There is no such entry"))
-    (po-next-entry-with-regexp po-untranslated-regexp t)
+    (po-next-entry-with-regexp po-any-msgstr-regexp t)
     (po-find-span-of-entry)
     (while (not (eq po-entry-type 'translated))
       (po-next-entry-with-regexp po-any-msgstr-regexp t)
       (po-find-span-of-entry))))
 
 (defun po-previous-translated-entry ()
-  "Find the previous untranslated entry, wrapping around if necessary."
+  "Find the previous translated entry, wrapping around if necessary."
   (interactive)
   (if (= po-translated-counter 0)
       (error (_"There is no such entry"))
@@ -1581,7 +1581,7 @@ which does not match exactly.")
     (po-find-span-of-entry)
     (while (not (eq po-entry-type 'translated))
       (po-previous-entry-with-regexp po-untranslated-regexp t)
-    (po-find-span-of-entry))))
+      (po-find-span-of-entry))))
 
 ;; Auto-selection feature.