[Emacs-diffs] /srv/bzr/emacs/trunk r105673: * lib-src/etags.c (Fortran_functions): Handle "pure" functions. (tiny change)

[Glenn Morris]

------------------------------------------------------------
revno: 105673
fixes bug(s): http://debbugs.gnu.org/9359
author: Dieter Schuster <address@hidden>
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Wed 2011-09-07 00:25:55 -0700
message:
  * lib-src/etags.c (Fortran_functions): Handle "pure" functions.  (tiny change)
modified:
  lib-src/ChangeLog
  lib-src/etags.c

=== modified file 'lib-src/ChangeLog'
--- a/lib-src/ChangeLog 2011-09-06 16:34:41 +0000
+++ b/lib-src/ChangeLog 2011-09-07 07:25:55 +0000
@@ -1,3 +1,7 @@
+2011-09-07  Dieter Schuster  <address@hidden>  (tiny change)
+
+       * etags.c (Fortran_functions): Handle "pure" functions.  (Bug#9359)
+
 2011-09-06  Paul Eggert  <address@hidden>
 
        * Makefile.in ($(DESTDIR)${archlibdir}): install-sh moved

=== modified file 'lib-src/etags.c'
--- a/lib-src/etags.c   2011-08-28 23:55:41 +0000
+++ b/lib-src/etags.c   2011-09-07 07:25:55 +0000
@@ -4048,6 +4048,9 @@
       if (LOOKING_AT_NOCASE (dbp, "recursive"))
        dbp = skip_spaces (dbp);
 
+      if (LOOKING_AT_NOCASE (dbp, "pure"))
+       dbp = skip_spaces (dbp);
+
       switch (lowcase (*dbp))
        {
        case 'i':