# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1264792393 18000
# Node ID b3b8cae9520c6ed32cfee39694761a2c617c80bc
# Parent  d9ad62ffa43a9abacca5990e24a5085d748de24a
* etags.c (Fortran_functions): Handle recursive keyword (Bug#5484).

diff -r d9ad62ffa43a -r b3b8cae9520c lib-src/ChangeLog
--- a/lib-src/ChangeLog	Fri Jan 29 14:08:09 2010 -0500
+++ b/lib-src/ChangeLog	Fri Jan 29 14:13:13 2010 -0500
@@ -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 -r d9ad62ffa43a -r b3b8cae9520c lib-src/etags.c
--- a/lib-src/etags.c	Fri Jan 29 14:08:09 2010 -0500
+++ b/lib-src/etags.c	Fri Jan 29 14:13:13 2010 -0500
@@ -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':