andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Etags handling of fortran files (bug#81086).

Browse source 
* lib-src/etags.c: Tag fortran modules.  Honor file extensions
"f95", "f03", "f08" for fortran files.
* doc/emacs/maintaining.texi: Update accordingly.
This commit is contained in:
Roland Winkler 2026-05-21 16:45:41 -05:00
parent e86825e595
commit 0d5680665b
2 changed files with 9 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
doc/emacs/maintaining.texi
View file

@ -3250,7 +3250,8 @@ In Erlang code, the tags are the functions, records and macros defined
in the file.
@item
In Fortran code, functions, subroutines and block data are tags.
In Fortran code, modules, subroutines, functions, entries and block data
are tags.
@item
In Go code, packages, functions, and types are tags.

9
lib-src/etags.c
View file

@ -652,9 +652,10 @@ static const char Forth_help [] =
constant, code, create, defer, value, variable, buffer:, field.";
static const char *Fortran_suffixes [] =
{ "F", "f", "f90", "for", NULL };
{ "F", "f", "for", "f90", "f95", "f03", "f08", NULL };
static const char Fortran_help [] =
"In Fortran code, functions, subroutines and block data are tags.";
"In Fortran code, modules, subroutines, functions, entries\n\
and block data are tags.";
static const char *Go_suffixes [] = {"go", NULL};
static const char Go_help [] =
@ -4567,6 +4568,10 @@ Fortran_functions (FILE *inf)
continue;
switch (c_tolower (*dbp))
{
case 'm':
if (nocase_tail ("module"))
F_getit (inf);
continue;
case 'f':
if (nocase_tail ("function"))
F_getit (inf);