Google
 

Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/outline.elib
There are no other files named outline.elib in the archive.
(W
[0+8+FQ(+4)[1
0FO10F"G+Q1'
+FQ()+4U1
FQ1"L0'
,Q1:M(Q1+4(]1]0))
=^ij&z:]x+%42:(I[dfvndent^R Outline Close Level^R Outline Grind^R Outline Start Level~DIRECTORY~~DOC~ & Indent for Outline%~DOC~ & Outline Continuation Line~DOC~ Outline Mode~DOC~ ^R Outline Autoindent ~DOC~ ^R Outline Close Level~DOC~ ^R Outline Grind ~DOC~ ^R Outline Start Level~DOC~ ~FILENAME~~FILENAME~
~INVERT~tM(M.M& Init Buffer Locals)
M.M^R Outline AutoindentM.Q 
M.M^R Outline Start LevelM.Q(
M.M^R Outline Close LevelM.Q)
M.M^R Outline GrindM.Q..Q
0M.LAuto fill mode
0M.LWord Abbrev mode
Q.0,1M(M.M& Set Mode Line)OutlineS[7
M(M.M& Outline Continuation Line)u7
M(M.M& Indent for Outline)
i(q7,.6[7
M(M.M& Outline Continuation Line)u7
i q7,.[[7
M(M.M& Outline Continuation Line)u7
i)q7,.f
1:<fs^rparen"nm(fs^rparen)'>
0[0[1[3[4.u1
<.u0(fshpos)-(qfill column)u4
(1-q4);
q4r
-s d
.,q0-1fx3
(q1-.)"g.u1'
M(M.M& Indent for Outline)
g3>
q1[0[1[2
.u0
-:s()u1
q1"e0u2'
1+q1"e(fshpos+4)u2'
2+q1"ec-fll
(fshpos)u2'
q0j1,@MM
(q2/8)u1q1,9i
(q2-(8*q1)),32i
q0;[0[1
<(-4-(:s 	
));>:s(
1:<-ful>
0l.f[vb
fsz-(fl)+.f[vz
<:s
;fkd32i>
bjs(.u0
<:s	;-d32i>
q0j<:s  ( ) ;-dr>
q0j<:s ( );r-d>
q0j<:s() u1;r
q1+1"eM(M.M& Outline Continuation Line)M(M.M& Indent for Outline)'
"#M(M.M& Outline Continuation Line)'wc>
q0j<:s. ? ! ;32i>
bjhOUTLINE,Macros for building structured outlines.$C Sets up macros for Indent modeC Starts new pointC Indent for OutlineC End a point$S If line too long, breaks line.S Indent to proper place. C Grind section.
If the first non-blank character after point is ( then grind that section;
otherwise grind the section containing point, if there is one.Outline Mode
^R Outline Start Level
^R Outline Autoindent
^R Outline Close Level
& Outline Continuation Line
& Indent for Outline
^R Outline Grind
T+8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0'>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2