Escape trigraphs that could occur in translated strings.

diff --git a/intl/ChangeLog b/intl/ChangeLog
index 153adf21a9b76be0610a661a1d71ba4eff155e07..49963f2e0978b806724dfb67bd15735897c8a2d5 100644 (file)
--- a/intl/ChangeLog
+++ b/intl/ChangeLog
@@ -1,3 +1,7 @@
+1998-10-20  Paul Eggert  <eggert@twinsun.com>
+
+       * po2tbl.sin: Escape trigraphs.
+
 2000-10-12  Bruno Haible  <haible@clisp.cons.org>
 
        * finddomain.c: Remove unneeded includes.

diff --git a/intl/po2tbl.sin b/intl/po2tbl.sin
index b3bcca4d73023d53fc94fd01a6ac2aae7f01faf4..ee89f8b86cc69cec43afa19bc2ebfacbfe4a7cda 100644 (file)
--- a/intl/po2tbl.sin
+++ b/intl/po2tbl.sin
@@ -52,6 +52,8 @@ const struct _msg_ent _msg_tbl[] = {
 # We found a continuation line.  But before printing insert '\'.
   :a
   s/\(.*\)\(\n.*\)/\1\\\2/
+# Escape trigraphs.
+  s/[?][?]\([-=(/)'<!>]\)/?\\?\1/g
   P
 # We cannot use D here.
   s/.*\n\(.*\)/\1/
@@ -87,6 +89,8 @@ const struct _msg_ent _msg_tbl[] = {
   G
   s/\(.*\)\n\([0-9]*\)/\1, \2},/
   s/\(.*\)"$/\1/
+# Escape trigraphs.
+  s/[?][?]\([-=(/)'<!>]\)/?\\?\1/g
   p
 }
 #