From: Chong Yidong <cyd@stupidchicken.com>
Date: Fri, 29 Jan 2010 19:13:13 +0000 (-0500)
Subject: * etags.c (Fortran_functions): Handle recursive keyword (Bug#5484).
X-Git-Tag: emacs-pretest-23.1.92~5
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9d77a91fdaa0f182ec9e214ebdcc96e000ae982e;p=emacs.git

* etags.c (Fortran_functions): Handle recursive keyword (Bug#5484).
---

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':