diff options
| author | Roland Winkler <winkler@gnu.org> | 2026-05-21 16:45:41 -0500 |
|---|---|---|
| committer | Roland Winkler <winkler@gnu.org> | 2026-05-21 16:45:41 -0500 |
| commit | 0d5680665bc12d3b23383d222a0519d6cac2864a (patch) | |
| tree | 2886ec3f38a649cebed49c8c17b52c0e4e9a88dd /lib-src | |
| parent | e86825e5959b0f38de10196db8c9694b12c77dd9 (diff) | |
Etags handling of fortran files (bug#81086).
* lib-src/etags.c: Tag fortran modules. Honor file extensions
"f95", "f03", "f08" for fortran files.
* doc/emacs/maintaining.texi: Update accordingly.
Diffstat (limited to 'lib-src')
| -rw-r--r-- | lib-src/etags.c | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/lib-src/etags.c b/lib-src/etags.c index 89462dd5e7f..f218dba2902 100644 --- a/lib-src/etags.c +++ b/lib-src/etags.c @@ -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); |