From: Bruno Haible <bruno@clisp.org>
Date: Mon, 7 Jan 2002 17:56:05 +0000 (+0000)
Subject: Fix bug in librep extractor.
X-Git-Tag: v0.11~98
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=1510a2d0d99ab44694d9a11caa69c4d131e99e09;p=thirdparty%2Fgettext.git

Fix bug in librep extractor.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index 784445591..a1cb42438 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2002-01-06  Bruno Haible  <bruno@clisp.org>
+
+	* x-librep.c (read_object): Fix handling of #[ and #(.
+
 2002-01-06  Bruno Haible  <bruno@clisp.org>
 
 	* x-lisp.c (read_object): Treat ',.' like ',@'.
diff --git a/src/x-librep.c b/src/x-librep.c
index b8f21f138..d2f2e1680 100644
--- a/src/x-librep.c
+++ b/src/x-librep.c
@@ -938,11 +938,23 @@ read_object (op)
 		}
 	      /*FALLTHROUGH*/
 	    case '\'':
+	    case ':':
+	      {
+		struct object inner;
+		read_object (&inner);
+		/* Dots and EOF are not allowed here.
+		   But be tolerant.  */
+		free_object (&inner);
+		op->type = t_other;
+		last_non_comment_line = line_number;
+		return;
+	      }
+
 	    case '[':
 	    case '(':
-	    case ':':
 	      {
 		struct object inner;
+		do_ungetc (c);
 		read_object (&inner);
 		/* Dots and EOF are not allowed here.
 		   But be tolerant.  */