diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2010-01-29 14:13:13 -0500 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2010-01-29 14:13:13 -0500 |
| commit | 24c2351c2c430f86b17a35d88edf4e4d6c9f70e0 (patch) | |
| tree | dbbd97a5271e3a2be3a0fa6db5c30122c160263d | |
| parent | c58116a2423826d54ea82faf24a3bd22beca5a27 (diff) | |
| download | emacs-24c2351c2c430f86b17a35d88edf4e4d6c9f70e0.tar.gz | |
* etags.c (Fortran_functions): Handle recursive keyword (Bug#5484).
| -rw-r--r-- | lib-src/ChangeLog | 5 | ||||
| -rw-r--r-- | lib-src/etags.c | 4 |
2 files changed, 9 insertions, 0 deletions
diff --git a/lib-src/ChangeLog b/lib-src/ChangeLog index a50ee76b96c..8ef57555a0f 100644 --- a/lib-src/ChangeLog +++ b/lib-src/ChangeLog @@ -1,3 +1,8 @@ +2010-01-29 Kester Habermann <kester@linuxtag.org> + + * etags.c (Fortran_functions): Handle recursive keyword + (Bug#5484). + 2010-01-11 Glenn Morris <rgm@gnu.org> * ebrowse.c (version): diff --git a/lib-src/etags.c b/lib-src/etags.c index d49dcf930af..2715df8b5cc 100644 --- a/lib-src/etags.c +++ b/lib-src/etags.c @@ -4108,6 +4108,10 @@ Fortran_functions (inf) dbp = skip_spaces (dbp); if (*dbp == '\0') continue; + + if (LOOKING_AT_NOCASE (dbp, "recursive")) + dbp = skip_spaces (dbp); + switch (lowcase (*dbp)) { case 'i': |