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 /lib-src | |
parent | c58116a2423826d54ea82faf24a3bd22beca5a27 (diff) | |
download | emacs-24c2351c2c430f86b17a35d88edf4e4d6c9f70e0.tar.gz |
* etags.c (Fortran_functions): Handle recursive keyword (Bug#5484).
Diffstat (limited to 'lib-src')
-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': |