diff options
| author | Bruno Haible <bruno@clisp.org> | 2003-11-25 11:07:27 +0000 |
|---|---|---|
| committer | Bruno Haible <bruno@clisp.org> | 2009-06-23 12:11:21 +0200 |
| commit | e69bdd7e5b115d0c5ec8de42fe0e248e14bbfb2e (patch) | |
| tree | e1befe12d3dfb8ac83760ad949e228670a8ae7a9 /gettext-tools/src/x-lisp.c | |
| parent | 569845286dbb89f52ca0c0034ea43139f57ca3d8 (diff) | |
| download | external_gettext-e69bdd7e5b115d0c5ec8de42fe0e248e14bbfb2e.zip external_gettext-e69bdd7e5b115d0c5ec8de42fe0e248e14bbfb2e.tar.gz external_gettext-e69bdd7e5b115d0c5ec8de42fe0e248e14bbfb2e.tar.bz2 | |
Fix the extraction of tagged comments.
Diffstat (limited to 'gettext-tools/src/x-lisp.c')
| -rw-r--r-- | gettext-tools/src/x-lisp.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/gettext-tools/src/x-lisp.c b/gettext-tools/src/x-lisp.c index 0c687ee..c3c8a55 100644 --- a/gettext-tools/src/x-lisp.c +++ b/gettext-tools/src/x-lisp.c @@ -1174,7 +1174,11 @@ read_object (struct object *op, flag_context_ty outer_context) if (c != ';') all_semicolons = false; if (!all_semicolons) - comment_add (c); + { + /* We skip all leading white space, but not EOLs. */ + if (!(buflen == 0 && (c == ' ' || c == '\t'))) + comment_add (c); + } } comment_line_end (0); continue; |