From: Bruno Haible <bruno@clisp.org>
Date: Sun, 17 Jun 2007 22:09:34 +0000 (+0000)
Subject: Remove support for long-outdated and undocumented syntax.
X-Git-Tag: v0.17~333
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=aded71ef5061d2457e395e65f48831997bd497b1;p=thirdparty%2Fgettext.git

Remove support for long-outdated and undocumented syntax.
---

diff --git a/gettext-tools/misc/ChangeLog b/gettext-tools/misc/ChangeLog
index eb4a4a7fc..8c3715e0f 100644
--- a/gettext-tools/misc/ChangeLog
+++ b/gettext-tools/misc/ChangeLog
@@ -1,3 +1,8 @@
+2007-06-17  Bruno Haible  <bruno@clisp.org>
+
+	* po-mode.el (po-add-attribute, po-delete-attribute, po-fuzzy-regexp):
+	Don't recognize the syntax "#! fuzzy" any more.
+
 2007-06-17  Bruno Haible  <bruno@clisp.org>
 
 	* po-mode.el (po-validate): Protect the buffer-file-name against
diff --git a/gettext-tools/misc/po-mode.el b/gettext-tools/misc/po-mode.el
index 4db989142..934600501 100644
--- a/gettext-tools/misc/po-mode.el
+++ b/gettext-tools/misc/po-mode.el
@@ -1364,7 +1364,7 @@ of type interpretation is: obsolete, fuzzy, untranslated or translated."
   (save-excursion
     (let ((buffer-read-only po-read-only))
       (goto-char po-start-of-entry)
-      (if (re-search-forward "\n#[,!] .*" po-start-of-msgid t)
+      (if (re-search-forward "\n#, .*" po-start-of-msgid t)
 	  (save-restriction
 	    (narrow-to-region (match-beginning 0) (match-end 0))
 	    (goto-char (point-min))
@@ -1382,12 +1382,12 @@ of type interpretation is: obsolete, fuzzy, untranslated or translated."
   (save-excursion
     (let ((buffer-read-only po-read-only))
       (goto-char po-start-of-entry)
-      (if (re-search-forward "\n#[,!] .*" po-start-of-msgid t)
+      (if (re-search-forward "\n#, .*" po-start-of-msgid t)
 	  (save-restriction
 	    (narrow-to-region (match-beginning 0) (match-end 0))
 	    (goto-char (point-min))
 	    (if (re-search-forward
-		 (concat "\\(\n#[,!] " name "$\\|, " name "$\\| " name ",\\)")
+		 (concat "\\(\n#, " name "$\\|, " name "$\\| " name ",\\)")
 		 nil t)
 		(replace-match "" t t)))))))
 
@@ -1569,7 +1569,7 @@ If WRAP is not nil, the search may wrap around the buffer."
 
 ;; Fuzzy entries.
 
-(defvar po-fuzzy-regexp "^#[,!] .*fuzzy"
+(defvar po-fuzzy-regexp "^#, .*fuzzy"
   "Regexp matching the string inserted by msgmerge for translations
 which does not match exactly.")