Mercurial > emacs
comparison lib-src/etags.c @ 80230:9c2ef4f2ad6a
(Perl_functions): Fix call to skip_spaces.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Wed, 27 Feb 2008 20:48:57 +0000 |
parents | 071b5aa4efa1 |
children | 4054054dd212 |
comparison
equal
deleted
inserted
replaced
80229:581345c45877 | 80230:9c2ef4f2ad6a |
---|---|
4514 char *package = savestr ("main"); /* current package name */ | 4514 char *package = savestr ("main"); /* current package name */ |
4515 register char *cp; | 4515 register char *cp; |
4516 | 4516 |
4517 LOOP_ON_INPUT_LINES (inf, lb, cp) | 4517 LOOP_ON_INPUT_LINES (inf, lb, cp) |
4518 { | 4518 { |
4519 skip_spaces(cp); | 4519 cp = skip_spaces (cp); |
4520 | 4520 |
4521 if (LOOKING_AT (cp, "package")) | 4521 if (LOOKING_AT (cp, "package")) |
4522 { | 4522 { |
4523 free (package); | 4523 free (package); |
4524 get_tag (cp, &package); | 4524 get_tag (cp, &package); |