latest finst nits

[Ulrik Vieth <vieth@thphy.uni-duesseldorf.de>]

I just looked at your latest finst distribution from CTAN and found a few
minor nits:

1.  I suppose it's unnecessary to distribute "uv.patch1" and "uv.patch2".

2.  There's an empty file  "makemtm.pl", presumably created by a typo
    when you meant to touch "makemptm.pl".

3.  There's an unused file "x.tex" in the "mathptm" subdirectory, which
    seems to be an obsolete version of "fontptcm.tex".  Delete it?

4.  There's a bug in "famtool.pl" which leads to incorrect ot1famx.fd
    for expert fonts.  See the patch below.

Cheers, Ulrik.


P.S.  Last weekend I embarked on another hacking project, namely to
combine fontdoc.sty, fontinst.{sty,ini} and textcomp.tex in a single
fontinst.dtx source, which allows better documentation and selectively
including or leaving portions of the code.  I'm not quite finished 
yet, and I want to do some tests first, but it should be ready soon.

P.P.S.  I'm looking into integrating the \textcompfamily installation
into \latinfamily for simplicity.  All I need to add is a little hack
to skip the installation of TS1 in small-caps.  What dou you think?

P.P.P.S.  If you don't mind, I'd also like to include some hacks to
support a slightly simplified syntax in .etx files, namely treating

  \setslot{glyph}[comment]\endsetslot

equivalent to 

  \setslot{glyph}\comment{commentary}\endsetslot

We've used that a lot in the new math fonts, and it would be simply
convenient to have it in the standard fontinst distribution.




*** famtool.pl.orig	Fri May 22 00:28:20 1998
--- famtool.pl	Tue Jun  2 12:14:12 1998
***************
*** 379,386 ****
  if (/sub /) { s/Lucida//; }
   }
   if (/endinput/ && $encoding eq "ot1" ) { 
!     print NEWFD "\\DeclareFontShape{OT1}{$Famcode$opt_expert$famextra}{m}{ui}{<->ssub * $Famcode$famextra/m/it}{}\n"; 
!     print NEWFD "\\DeclareFontShape{OT1}{$Famcode$opt_expert$famextra}{b}{ui}{<->ssub * $Famcode$famextra/b/it}{}\n"; 
      print NEWFD "\\endinput\n";
          }
      else { print NEWFD ; }
--- 379,386 ----
  if (/sub /) { s/Lucida//; }
   }
   if (/endinput/ && $encoding eq "ot1" ) { 
!     print NEWFD "\\DeclareFontShape{OT1}{$Famcode$opt_expert$famextra}{m}{ui}{<->ssub * $Famcode$opt_expert$famextra/m/it}{}\n"; 
!     print NEWFD "\\DeclareFontShape{OT1}{$Famcode$opt_expert$famextra}{b}{ui}{<->ssub * $Famcode$opt_expert$famextra/b/it}{}\n"; 
      print NEWFD "\\endinput\n";
          }
      else { print NEWFD ; }