Adam Lindsay said this at Thu, 25 Nov 2004 13:48:40 +0000:

>Clearly \def\splitoffpurefontname#1 #2\\{#1} isn't enough. :/

To answer my own question, this (in spec-xtx?) should be enough (I wanted
the quotes stripped so that I could insert things):

\def\purefontname#1%
  {\doiffirstcharelse"{\expandafter\string\fontname#1}%
     {\expandafter\dodqpurefontname}
     {\expandafter\dopurefontname}
   #1\relax}

\def\dopurefontname#1%
  {\expandafter\splitoffpurefontname\fontname#1 \\}

\def\splitoffpurefontname#1 #2\\{#1}

%D No single-quote version is needed now because
%D \XETEX\ returns double-quotes.

\def\dodqpurefontname#1%
  {\expandafter\dododqpurefontname\fontname#1 \\}

\def\dododqpurefontname"#1"#2\\{#1}



-- 
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
 Adam T. Lindsay, Computing Dept.     [EMAIL PROTECTED]
 Lancaster University, InfoLab21        +44(0)1524/510.514
 Lancaster, LA1 4WA, UK             Fax:+44(0)1524/510.492
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

_______________________________________________
ntg-context mailing list
[EMAIL PROTECTED]
http://www.ntg.nl/mailman/listinfo/ntg-context

Reply via email to