mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(find_entries): If filename ends in .f or .for, don't try anything but Fortran.

Browse source
This commit is contained in:
Richard M. Stallman 1993-01-14 20:09:22 +00:00
parent bf03a38a2a
commit 1e8e116226
1 changed files with 10 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lib-src/etags.c
View file

@ -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;