Avoid using a NULL argparser.

diff --git a/gettext-tools/src/ChangeLog b/gettext-tools/src/ChangeLog
index 5191d8f5fcb6b9b5845debc2dfe1deccb5980eb8..31c687d40828d04afa13e23ca519a74836284f47 100644 (file)
--- a/gettext-tools/src/ChangeLog
+++ b/gettext-tools/src/ChangeLog
@@ -17,6 +17,7 @@
        argparser is NULL.
        * x-elisp.c (read_object): Likewise.
        * x-librep.c (read_object): Likewise.
+       * x-lisp.c (read_object): Likewise.
        Reported by Kevin Ryde <user42@zip.com.au>.
 
 2006-08-16  Bruno Haible  <bruno@clisp.org>

diff --git a/gettext-tools/src/x-lisp.c b/gettext-tools/src/x-lisp.c
index 35416ee780ade7d5cdb735b00a0827dec151935d..16309301a85b848561f13c57dfc9dcb1fc6afa47 100644 (file)
--- a/gettext-tools/src/x-lisp.c
+++ b/gettext-tools/src/x-lisp.c
@@ -1087,7 +1087,7 @@ read_object (struct object *op, flag_context_ty outer_context)
                    else
                      {
                        /* These are the argument positions.  */
-                       if (inner.type == t_string)
+                       if (argparser != NULL && inner.type == t_string)
                          arglist_parser_remember (argparser, arg,
                                                   string_of_object (&inner),
                                                   inner_context,