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 | 9d77a91fdaa0f182ec9e214ebdcc96e000ae982e (patch) | |
tree | a9d22e75513f0eb3839fd433b512c1877a624edd | |
parent | 1e86875746f1890ee62c8f1460ff905e50750aff (diff) | |
download | emacs-9d77a91fdaa0f182ec9e214ebdcc96e000ae982e.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': |