🚀 go-pugleaf

I'm not sure if this is the correct place to post this, but seeing as
etags comes as part of emacs, it seems the best.

I have made two mods to etags.c for fortran handling. One allows
underscore (_) in tags and the other recognises fortran entry points.
(Reconstructed) diffs follow. The etags these are taken from is that
released with emacs 18.57.

Please mail me for queries as I don't receive this group. Thanks.

*** etags.c    	Wed Aug 19 13:42:41 1992
--- etags.c.old	Mon Aug 10 14:22:33 1992
***************
*** 1082,1091 ****
  	  if (tail("subroutine"))
  	    getit();
  	  continue;
- 	case 'e':
- 	  if (tail("entry"))
- 	    getit();
- 	  continue;
  	case 'p':
  	  if (tail("program"))
  	    {

*** 1140,1146 ****
      dbp++;
    if (*dbp == 0 || !isalpha(*dbp))
      return;
!   for (cp = dbp+1; *cp && (isalpha(*cp) || isdigit(*cp) || *cp == '_'); cp++)
      continue;
    c = cp[0];
    cp[0] = 0;
--- 1140,1146 ----
      dbp++;
    if (*dbp == 0 || !isalpha(*dbp))
      return;
!   for (cp = dbp+1; *cp && (isalpha(*cp) || isdigit(*cp)); cp++)
      continue;
    c = cp[0];
    cp[0] = 0;
--
      #                   Mark Neale (mjn@jet.uk)
      #  ######   #####   Juggling with the parameters of Fusion.
      #  #          #
      #  #####      #     Joint European Torus, Culham Lab. OX14 3EA, UK
#     #  #          #     +44 235 465272
 #####   ######     #     Any opinion expressed above is.
-- 
      #                   Mark Neale (mjn@jet.uk)
      #  ######   #####   Juggling with the parameters of Fusion.
      #  #          #
      #  #####      #     Joint European Torus, Culham Lab. OX14 3EA, UK
#     #  #          #     +44 235 465272
 #####   ######     #     Any opinion expressed above is.
- Disclaimer: Please note that the above is a personal view and should not 
  be construed as an official comment from the JET project.