[Emacs-diffs] /srv/bzr/emacs/trunk r99414: * etags.c (Fortran_functions): Handle recursive keyword (Bug#5484).

[Chong Yidong]

------------------------------------------------------------
revno: 99414
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Fri 2010-01-29 14:13:13 -0500
message:
  * etags.c (Fortran_functions): Handle recursive keyword (Bug#5484).
modified:
  lib-src/ChangeLog
  lib-src/etags.c

=== modified file 'lib-src/ChangeLog'
--- a/lib-src/ChangeLog 2010-01-13 08:35:10 +0000
+++ b/lib-src/ChangeLog 2010-01-29 19:13:13 +0000
@@ -1,3 +1,8 @@
+2010-01-29  Kester Habermann <address@hidden>
+
+       * etags.c (Fortran_functions): Handle recursive keyword
+       (Bug#5484).
+
 2010-01-11  Glenn Morris  <address@hidden>
 
        * ebrowse.c (version):

=== modified file 'lib-src/etags.c'
--- a/lib-src/etags.c   2010-01-16 02:51:50 +0000
+++ b/lib-src/etags.c   2010-01-29 19:13:13 +0000
@@ -4108,6 +4108,10 @@
       dbp = skip_spaces (dbp);
       if (*dbp == '\0')
        continue;
+
+      if (LOOKING_AT_NOCASE (dbp, "recursive"))
+       dbp = skip_spaces (dbp);
+
       switch (lowcase (*dbp))
        {
        case 'i':