Tweak Lisp extractor.

diff --git a/src/ChangeLog b/src/ChangeLog
index f9d5dff8a73849f1432b4965d5a72b2ed398a1f9..78444559186f1346bbbaabeccd70b37d9bb5689b 100644 (file)
--- 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 b01719f7a01ba233096225d5bbeacff914941281..3c063e0d89178e1b164b2ac292fc12e9565fe4eb 100644 (file)
--- 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*/