From: Bruno Haible <bruno@clisp.org>
Date: Mon, 7 Jan 2002 17:55:29 +0000 (+0000)
Subject: Tweak Lisp extractor.
X-Git-Tag: v0.11~99
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b747ff6c9208e5cf324b3e45b7fd954a77f477f9;p=thirdparty%2Fgettext.git

Tweak Lisp extractor.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index f9d5dff8a..784445591 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2002-01-06  Bruno Haible  <bruno@clisp.org>
+
+	* x-lisp.c (read_object): Treat ',.' like ',@'.
+
 2002-01-05  Bruno Haible  <bruno@clisp.org>
 
 	Make "msgmerge --update" work better on CJK files even if iconv() is
diff --git a/src/x-lisp.c b/src/x-lisp.c
index b01719f7a..3c063e0d8 100644
--- a/src/x-lisp.c
+++ b/src/x-lisp.c
@@ -1182,7 +1182,7 @@ read_object (op)
 		int c = do_getc ();
 		/* The ,@ handling inside lists is wrong anyway, because
 		   ,@form expands to an unknown number of elements.  */
-		if (c != EOF && c != '@')
+		if (c != EOF && c != '@' && c != '.')
 		  do_ungetc (c);
 	      }
 	      /*FALLTHROUGH*/