doc/manual/texinfo-macros.texinfo

   1 @c Some plain TeX macrology to wrap text in \hbox{} only if the text
   2 @c contains no hyphens.
   3 @iftex
   4 @tex
   5 \newif\ifdash
   6 \long\def\dashp#1{\expandafter\setnext#1-\dashphelper}
   7 \long\def\setnext#1-{\futurelet\next\dashphelper}
   8 \long\def\dashphelper#1\dashphelper{
   9   \ifx\dashphelper\next\dashfalse\else\dashtrue\fi
  10 }
  11 \def\lw#1{\leavevmode\dashp{#1}\ifdash#1\else\hbox{#1}\fi}
  12 @end tex
  13 @end iftex
  14
  15 @c A Texinfo binding for the plain TeX above.  Analogous to Texinfo's
  16 @c @w, but for Lisp symbols.  AFAICT, the comment characters are
  17 @c necessary to prevent treating the newline as a space.
  18 @iftex
  19 @macro lw{word}
  20 @tex
  21 \\lw{\word\}%
  22 @end tex
  23 @end macro
  24 @end iftex
  25 @ifnottex
  26 @macro lw{word}
  27 \word\
  28 @end macro
  29 @end ifnottex
  30
  31 @c Some index prettification helper macros, for tricking the texindex
  32 @c collation "engine"
  33 @macro earmuffs{name}
  34 *\name\*
  35 @end macro
  36 @macro setf{name}
  37 (setf \name\)
  38 @end macro
  39 @include docstrings/package-macros.texinfo