Google
 

Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/picture.elib
There are no other files named picture.elib in the archive.
(W
[0+8+FQ(+4)[1
0FO10F"G+Q1'
+FQ()+4U1
FQ1"L0'
,Q1:M(Q1+4(]1]0))
)].y7+?LGS9[8hno|@8+9C%NUua[liw?	H!
RG#U
Ee
ve

-"	,,	&3& Down Normal& Left Normal& Up NormalDown Picture MovementEdit PictureLeft Picture MovementPad PictureRight Picture MovementStrip PictureUp Picture Movement^R Picture End of Line^R Picture Indent Under^R Picture Make New Line^R Picture Return^R Picture Rubout~DIRECTORY~~DOC~ & Down Normal~DOC~ & Left Normal~DOC~ & Up Normal~DOC~ Down Picture Movement~DOC~ Edit Picture~DOC~ Left Picture Movement~DOC~ Pad Picture ~DOC~ Right Picture Movement~DOC~ Strip Picture~DOC~ Up Picture Movement ~DOC~ ^R Picture End of Line!~DOC~ ^R Picture Indent Under"~DOC~ ^R Picture Make New Line~DOC~ ^R Picture Return~DOC~ ^R Picture Rubout~DOC~ ~Filename~~Filename~
~INVERT~0fo..qWord Abbrev Mode"n
0[Word Abbrev Mode'
0[Auto Fill Mode
m(m.mPad Picture)[1[2fsz-q1u1
fnfsz-q1,q2m(m.mStrip Picture)[1
f[^RNormal
-1f[^rreplace
1fsModeChw
m.m^R Picture Rubout[
m.m^R Picture Return[M
m.m^R Picture Indent Under[I
m.m^R Picture Make New Line[.O
m.m^R Picture End of Line[.E
:i*Picture[Submode
0fo..qEdit Picture Hookf"nu1m1'w

$<0lfswidth-1,32ii
>
-lf	@L.-l@f l
fsshpos(l)c.&<
:r"efg'
"#1af
"lf '>
:l-@f r.\F[VBF[VZ
FF"NFFFSBOUND'
"#.,(W).FFSBOUND'
J
<:L.-Z;
-@F K
L>
JZ:
HVF[VBF[VZ
.,(w).FFSBOUND
J
<:L.-Z;
FSWIDTH-1-(FSSHPOS),32I
L>
JZ:
H?:i*C(right)fsEchoDisplay0fsEchoActivew
0fs^RNormalw1N:i*C(left)fsEchoDisplay0fsEchoActivew
m.m& Left Normalfs^RNormalw1J:i*C(up)fsEchoDisplay0fsEchoActivew
m.m& Up Normalfs^RNormalw1N:i*C(down)fsEchoDisplay0fsEchoActivew
m.m& Down Normalfs^RNormalw1A0f[^RNormal
.(@m(64fs^RInit)w)j
fs^RReplace"n0f"gr''1[0f[^RNormal
fs^RHPos(
.(@m(64fs^RInit)w)j
)fs^RHPosw
-l
1:<0,(fs^RHPos)fm>w1Z0f[^RNormal
fs^RHPos(
.(@m(64fs^RInit)w)j
)fs^RHPosw
l
1:<0,(fs^RHPos)fm>w1PICTURE9Commands for editing pictures made out of characters.9C Enter a mode for editing a picture in the buffer.
The picture should be between point and mark, to begin with.
Edit Picture inserts spaces to pad out to the margin, then enters
a special mode in which these characters are redefined:
Rubout turns characters into spaces rather than deleting them.
Ordinary characters replace instead of inserting.
Return moves to the beginning of the next line.
Linefeed is like M-M followed by C-N.
C-O makes one or more new lines full of spaces after point.
When you exit the recursive ^R, the excess spaces are removed.8^R Make a new line of spaces before the current one.&^R Move to beginning of next line.3^R Indent under start of text on previous line.0^R Turn the previous character into a space.^R Go to End of Line./C Remove trailing spaces from picture.
Removes trailing spaces from all lines between point and mark.
Alternatively, a range may be specified with two numeric arguments.wC Pad lines with trailing spaces to screen width.
Adds enough trailing spaces to each line between point and mark.DC Set so cursor moves left (as usual) after inserting/replacing.9C Set so cursor moves left after inserting/replacing.7C Set so cursor moves up after inserting/replacing.9C Set so cursor moves down after inserting/replacing.S replace and move leftS replace and move upS replace and move down%Edit Picture
^R Picture Make New Line
^R Picture Return
^R Picture Indent Under
^R Picture Rubout
^R Picture End of Line
Strip Picture
Pad Picture
Right Picture Movement
Left Picture Movement
Up Picture Movement
Down Picture Movement
& Left Normal
& Up Normal
& Down Normal
T+8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0'>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2