Google
 
Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/underliner.elib
There are no other files named underliner.elib in the archive.
(W
[0+8+FQ(+4)[1
0FO10F"G+Q1'
+FQ()+4U1
FQ1"L0'
,Q1:M(Q1+4(]1]0))
   m6@F6TGb~jE})y0) & Temporarily _<BS> No Break^R Really Underline Word^R Remove Word Underline~DIRECTORY~&~DOC~ & Temporarily _<BS> No Break"~DOC~ ^R Really Underline Word"~DOC~ ^R Remove Word Underline~DOC~ ~Filename~~Filename~

~INVERT~"m(m.m&Temporarily <BS>NoBreak)
[10FO..QUnderlineMode[2
ff"E-1u1'"#u1'
Q1f"LW.[3W-Q1':<
Q1"L-fwl'
1:fwl
<0,1a"b1;'
!Remove!
1a- "e0,2a-8"e2dQ1"LQ3-2u3'oRemove''
1a-8"e0,2a- "e2dQ1"LQ3-2u3'oRemove''
q2"nc8ii '
"#i 8ic'
Q3+2u3.-z;>
-fwf
Q1"l-fwl'
>
Q1"LQ3J'
1sm(m.m&Temporarily <BS>NoBreak)
[1ff"E-1u1'"#u1'
Q1f"Lw.[2w-Q1':<
Q1"L-fwl'
:fwl
-@f l
<0,1a- "e0,2a-8"eQ1"LQ2-2u2'2doloop''
0,1a-8"e0,2a- "eQ1"LQ2-2u2'2doloop''
0,1a-"b1;'
c!loop!.-z;>
-fwf
Q1"l-fwl'
>
Q1"LQ2J'
1q8*5,(8*5+5):g..d[1
 *5,( *5+5):g..d[2
fn8*5:f..d1
 *5:f..d2
8*5:f..dAA
 *5:f..dAA
:NDERLINEUnderline routines.^R Underline <NUMARG> words using backspaces.
With no arg, underlines the previous word. Neg arg => don't move point.
Underlines with <CHAR><BS>_ the variable $Underline Mode$ is non-zero,
otherwise (the default) with _<BS><CHAR> so scopes will show the characters.e^R Removes underlining from NUMARG words.
Exactly undoes the effect of ^R Really Underline Word.rS Set so _ and <BS> are not text breaks.
Pushes a ..N so definitions for _ and <BS> revert when caller exits.V^R Really Underline Word
^R Remove Word Underline
& Temporarily _<BS> No Break
T+8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0'>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2