Remove support for long-outdated and undocumented syntax.

diff --git a/gettext-tools/misc/ChangeLog b/gettext-tools/misc/ChangeLog
index eb4a4a7fcc6f74d9e1411f0051286dbafef1e839..8c3715e0f873fe09cf232d45ac9f0be1d9fb3dfe 100644 (file)
--- 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 4db9891429cfe10e4df914d4a8266bda8f64211b..934600501901d8cf0c03516ea06be0cedd60f099 100644 (file)
--- 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)))))))
 \f
@@ -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.")