home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / packages / LaTeXinfo.shar.2 / smallverb.sty < prev   
Encoding:
Text File  |  1990-07-22  |  1.4 KB  |  38 lines
  1. \message{smallverbatim,}
  2. \font\egttt  = cmtt8            % typewriter
  3.     \hyphenchar\egttt = -1      %  suppress hyphenation in \tt font
  4. \font\nintt  = cmtt9            % typewriter
  5.     \hyphenchar\nintt = -1      %  suppress hyphenation in \tt font
  6.  \font\tentt  = cmtt10       % typewriter
  7.     \hyphenchar\tentt = -1      %  suppress hyphenation in \tt font
  8.  \font\elvtt  = cmtt10   \@halfmag % typewriter
  9.     \hyphenchar\elvtt = -1         %  suppress hyphenation in \tt font
  10.  
  11. \renewenvironment{example}{\aboveenvbreak
  12.     \hfuzz=12truept % Don't be fussy
  13.     \sepspaces % Make spaces be word-separators rather than space tokens.
  14.     \singlespace % Single space lines
  15.     % The following causes blank lines not to be ignored
  16.     % by adding a space to the end of each line.
  17.     \let\par=\lisppar
  18.     \parskip=0pt \advance \rightskip by \lispnarrowing 
  19.     \advance \leftskip by \lispnarrowing
  20.     \parindent=0pt
  21.     \let\exdent=\internalexdent
  22.     \ifcase \@ptsize\relax\nintt\or\tentt\or\elvtt\fi
  23.     \bgroup\samepage
  24. \def\back{\rawbackslashxx\@gobble}
  25.     \obeylines\@noligs\frenchspacing\obeyspaces
  26.     \def\next##1{}\next}{\egroup\afterenvbreak}
  27.  
  28.  
  29. \def\@verbatim{\trivlist \item[]\if@minipage\else\vskip\parskip\fi
  30. \leftskip\@totalleftmargin\rightskip\z@
  31. \parindent\z@\parfillskip\@flushglue\parskip\z@
  32. \@tempswafalse 
  33. \def\par{\if@tempswa\hbox{}\fi\@tempswatrue\@@par}
  34. \obeylines \ifcase \@ptsize\relax\nintt\or\tentt\or\elvtt\fi
  35. \let\do\@makeother \dospecials}
  36.  
  37.  
  38.