Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

PW
[0+8+FQ(+4)[1
0FO10F"G+Q1'
+FQ()+4U1
FQ1"L0'
,Q1:M(Q1+4(]1]0))
   Q

huP
q

t
!C
-

'
8
'
Ad
Hc
9

|J7& File JUSTIFY Loaded& Setup JUSTIFY LibraryAuto Fill ModeAuto Justify Mode^R Auto-Fill Space^R Auto-Justify Space^R Fill Paragraph^R Fill Region~DIRECTORY~~DOC~ & File JUSTIFY Loaded!~DOC~ & Setup JUSTIFY Library~DOC~ Auto Fill Mode~DOC~ Auto Justify Mode~DOC~ ^R Auto-Fill Space~DOC~ ^R Auto-Justify Space~DOC~ ^R Fill Paragraph~DOC~ ^R Fill Region~DOC~ ~Filename~~Filename~

~INVERT~n0FO..QJUSTIFY Setup Hook[1
Q1"NM1'
"#
0FO..QAuto Justify ModeF"E
0M.VAuto Justify Mode'
@:I1|!* 1 => Auto Justify (Justify paragraph to point)!
1FSMODECHANGE
32FS^RINITU 
"E'
"#0UAuto Fill Mode
M.M^R Auto-Justify SpaceU '|
M.CAuto Justify Mode1
@:I1|!* 1 => Auto Fill (Break long lines at margin)!
1FSMODECHANGE
32FS^RINITU 
"E'
"#0UAuto Justify Mode
M.M^R Auto-Fill SpaceU '|
M.CAuto Fill Mode1
QSet Mode Line Hook[2
@:ISet Mode Line Hook|2+0[1
FQ1"L:I1'
QAuto Justify Mode"N[2:I2 Justify'
"#[2:I2'
:I*12'(]1)|
1FSMODECHANGE
0*Notemacrobodiesarenotallowedtobeempty.*
[0
FF"N"N1U0'"#0U0''
"#0FO..QAuto Justify Mode"E1U0'"#0U0''
Q0M.LAuto Justify Mode
Q0"N0M.LAuto Fill Mode
M.M^R Auto-Justify SpaceU '
1FSMODECHANGE
0%
[0
FF"N"N1U0'"#0U0''
"#0FO..QAuto Fill Mode"E1U0'"#0U0''
Q0M.LAuto Fill Mode
Q0"N0M.LAuto Justify Mode'
M.M^R Auto-Fill SpaceU '
1FSMODECHANGE
0bM(32FS^RINIT)
-1"G0'
0FO..QFill ColumnF"NF[ADLINE'
FSADLINE[1
FSHPOS-Q1-:"G0'
Z-.[0FNZ-Q0J
<.-1,(0L.):FB "E0'
Q1-FSHPOS;>
@F L
@-F K
:FX1
.-Z(
@M(M.M^R Indent New Comment Line)F
)+Z-.+Q0U0
:0@L.[3.[4
@L
0FO..QComment Start[2
Q2"N
:FB2"N
:@LQComment EndU2
Q2"N-FQ2F~2"E
-FQ2DQ0-FQ2U0''
:@LG1'
"#F~MODELISP"E
@M(M.M^R Indent According to Mode)
:@LG1'
"#
.U4@M(M.M^R Backward Paragraph)
@F 	


J
.-Q4"GQ4J'.U3
:@LG1
Q3,.FA'''
"#
.U4@M(M.M^R Backward Paragraph)
@F 	


J
.-Q4"GQ4J'.U3
:@LG1
Q3,.FA'
FSRGETTY"E:0T'
Q3,.fM(32FS^RINIT)
-1"G0'
0FO..QFill ColumnF"NF[ADLINE'
FSADLINE[1
FSHPOS-Q1-:"G0'
Z-.[0FNZ-Q0J
<.-1,(0L.):FB "E0'
Q1-FSHPOS;>
@F L
@-F K
:FX1
.-Z(
@M(M.M^R Indent New Comment Line)F
)+Z-.+Q0U0
:0@L.,(
@L
QComment Start[2
Q2"N:FB2"N
:@LQComment EndU2
Q2"N-FQ2F~2"E
-FQ2DQ0-FQ2U0''''
:@LG1
FSRGETTY"E:0T'
).[1
QAuto Justify Mode"E:I1justify'
"#FF"E:I1fill'
"#"L:I1fill'
"#:I1justify'''
Q1M(M.M& Save Region and Query)F"E'
F[VBF[VZ
0FO..QFill Prefix[1
Q1"EFQComment End-1"L
QComment StartF"NU1'''
QFill Extra Space List[2
0FO..QFill ColumnF"NF[ADLINE'
.,(W.)FFSBound
FQ1"GJ<.-Z;FQ1F=1"EFQ1D'L>'
FNB:ZJ
J<.-Z;:L0,0AF2+1"GI 'L>
FF"N
J:S 
<:S  ;0,-2AF2+1"E-D'
@F K>'
QAuto Justify Mode-1"EHFA'
"#FF"E@HFA'
"#"L@HFA'
"#HFA'''
FQ1"GJ<.-Z;G1L>'
ZJH*
.[0
@M(M.M^R Mark Paragraph)
W
@F 	


J.:
:-Z[1
F@M(M.M^R Fill Region)(
Q1+Z-Q0"LQ1+ZU0'
Q0:J"L
0,1A-10"EC'
Q1+Z-Q0"E0@F"E:@0L'''
)
-------JUSTIFY6Library of routines to do automatic justification.*S Sets up for automatic justification.,? If this is defined, JUSTIFY is loaded.7C Break lines between words at right margin and justify.
A positive argument turns Auto Justify mode on; zero or negative,
turns it off.  With no argument, the mode is toggled.  When  Auto
Justify mode  is  on,  lines  are  broken  at  the  right  margin
(position controlled by Q$Fill Column$) at spaces, by doing a LF.
Then the paragraph is justified to  that point.  You can set  the
Fill Column with the ^R Set Fill Column.
C Break lines between words at the right margin.
A positive  argument  turns  Auto  Fill  mode  on;  zero  or
negative, turns  it  off.  With  no  argument, the  mode  is
toggled.  When Auto Fill mode is on, lines are broken at the
right margin  (position  controlled by  QFill  Column)  at
spaces, by doing a LF.  You can set the Fill Column with the
^R Set Fill Column.6^R Insert space, but if at margin, justify paragraph to that point.
QFill Column controls where the margin is considered to be.
QSpace Indent Flag, if 0, inhibits indenting new lines.
With arg of 0, inserts no space, but may break line.
With arg > 1, inserts several spaces and does not break line.^R Insert space, but CRLF at margin.
QFill Column controls where the margin is considered to be.
QSpace Indent Flag, if 0, inhibits indenting new lines.
With arg of 0, inserts no space, but may break line.
With arg > 1, inserts several spaces and does not break line.^R Fill text from mark to point.
QFill  Column  specifies  the  desired  text  width.    An
explicit positive  argument (or  Auto Justify  Mode)  causes
adjusting instead of  filling.  A  negative argument  causes
"un-filling": removal of excess spaces..
^R Fill (or adjust) this (or next) paragraph.
Point stays the same (but text may move past it due to filling).
A positive numeric argument says adjust rather than fill.%
& Setup JUSTIFY Library
& File JUSTIFY Loaded
Auto Justify Mode
Auto Fill Mode
^R Auto-Justify Space
^R Auto-Fill Space
^R Fill Region
^R Fill Paragraph
T+8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0'>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2