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
0FO1 0F"G+Q1 '
+FQ()+4U1
FQ1"L0 '
,Q1:M(Q1+4(]1]0))
= ^ i j & z : ] x + % 4 2 : ( I [ d f v ndent ^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~t M(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)Outline S [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,@M M
(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>
bjh OUTLINE, Macros for building structured outlines.$ C Sets up macros for Indent mode C Starts new point C Indent for Outline C 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