From: Bruno Haible <bruno@clisp.org>
Date: Fri, 9 Nov 2001 10:32:09 +0000 (+0000)
Subject: Fix po-next-translated-entry.
X-Git-Tag: v0.11~315
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=5fbd18c1a3509d2759fc3a1c6828afee62331196;p=thirdparty%2Fgettext.git

Fix po-next-translated-entry.
---

diff --git a/misc/ChangeLog b/misc/ChangeLog
index 512cc8022..b8299b5a6 100644
--- 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 1ff687a44..80dfcb235 100644
--- 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.