diff options
author | Richard M. Stallman <rms@gnu.org> | 1993-01-14 20:09:22 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1993-01-14 20:09:22 +0000 |
commit | 6644f49b1abb5cbac65503b4743c3d37aa0ae63e (patch) | |
tree | e3403d30baeff092c59401b8433e06a227985a45 /lib-src | |
parent | b5f19659dfcb87e9789d79261675544ca38d976e (diff) | |
download | emacs-6644f49b1abb5cbac65503b4743c3d37aa0ae63e.tar.gz |
(find_entries): If filename ends in .f or .for, don't try anything but Fortran.
Diffstat (limited to 'lib-src')
-rw-r--r-- | lib-src/etags.c | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/lib-src/etags.c b/lib-src/etags.c index 2bb992c1a99..67b76826727 100644 --- a/lib-src/etags.c +++ b/lib-src/etags.c @@ -1034,11 +1034,17 @@ find_entries (file) PAS_funcs (inf); goto close_and_return; } + /* If .f or .for, assume it is fortran or nothing. */ + if (cp && (streq (cp + 1, "f") || streq (cp + 1, "for"))) + { + PF_funcs (inf); + goto close_and_return; + } /* if not a .c or .h or .y file, try fortran */ - else if (cp && ((cp[1] != 'c' - && cp[1] != 'h' - && cp[1] != 'y') - || (cp[1] != 0 && cp[2] != 0))) + if (cp && ((cp[1] != 'c' + && cp[1] != 'h' + && cp[1] != 'y') + || (cp[1] != 0 && cp[2] != 0))) { if (PF_funcs (inf) != 0) goto close_and_return; |