Google
 

Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/epict.elib
There are no other files named epict.elib in the archive.
(W
[0+8+FQ(+4)[1
0FO10F"G+Q1'
+FQ()+4U1
FQ1"L0'
,Q1:M(Q1+4(]1]0))
   =^Xk'xPk5!{/E=QET7ePp
*
m
}'C6J
+& Set Picture Display& Update Picture BufferEdit Picture$^R Change Picture Display Column^R Edit Picture Kill Line^R Edit Picture New Line^R Edit Picture Open Line~DIRECTORY~~DOC~ & Set Picture Display!~DOC~ & Update Picture Buffer~DOC~ Edit Picture*~DOC~ ^R Change Picture Display Column#~DOC~ ^R Edit Picture Kill Line"~DOC~ ^R Edit Picture New Line#~DOC~ ^R Edit Picture Open Line~DOC~ ~Filename~~Filename~
~INVERT~7q..Om.vPicture Real Buffer
0[..Ff[BBind
0m.vPicture Display Column
[..Jm(m.m& Set Picture Display)
m.m^R Change Picture Display Column[I
m.m^R Edit Picture Kill Line[.K
m.m^R Edit Picture New Line[M
m.m^R Edit Picture Open Line[.O
1[Overwrite Mode

m(m.m& Update Picture Buffer)
ff"e0'"#qPicture Display Column+'[0
q0"l0u0'
m(m.m& Update Picture Buffer)
q0uPicture Display Column
m(m.m& Set Picture Display)

m(m.m& Update Picture Buffer)
qPicture Real Buffer[..O
f@m(m.m^R Kill Line)
]..O
m(m.m& Set Picture Display)
.[0.,(:l.(q0j))m(m.m& Update Picture Buffer)
.[0qPicture Real Buffer[..O
"l-'"#'<i
>
]..O
m(m.m& Set Picture Display)
.(:l.u1)j
"lq0j'
q0,q1&-:m(m.m^R Edit Picture New Line)[0[1[2[3[4[5
fs^RVPosu5
hkq..Ou2
qPicture Display Columnu3
qPicture Real Buffer[..O
fsSHPos-q3u0
q0-72"g72u0'q0"l0u0'
0u10l<b-.;-l%1>
m(m.mUntabify)
<.-z;:x4q2[..O
fq4-q3"gq3,(fq4):g4u4'"#:i4'
fq4-72"g0,72:g4u4:i44\\'
q3"ni\\'
g472-(fq4)f"g, i'w
i
']..Ol>
q2[..O
0fsModifiedw0fsXModifiedw
jq1lq3"n2+'q0c
:g3u3
:i..J(Editing picture, column 3, return with c-m-Z)
fq5:f
[0[1[2[3[4[5q..Ou3
qPicture Display Columnu0
fsSHPosu1q0"nq1-2u1'q1+q0u1
0u20l<b-.;-l%2>
fsModifiedu5
jm(m.mUntabify)
qPicture Real Buffer[..Oj
q5"n<.-z;
q3[..Oq0"n2c':x40,72:g4u4l]..O
:lfq4+q0-(fsSHPos)f"g, i'w
0lq0cf4
:l-@f	 kl>'
jq2lq1c
]..Ojq2lq1c
	EPICT+Macros for editing wide screen pictures4C Edit a wide screen picture.
Puts you in a recursive editing session, with only 72 columns of the display
visible.  Tab will change the start of the visible columns.

If there is text remaining on either side of the lines then that side will be
bordered by "\\".  The user is responsible for making sure that these line up
(visually, don't worry about tabs) when exiting or changing the viewed column.
Overwrite mode is set.^R Redisplay on a new column.
Argument is increment to add to column; if no argument is given, display
column is reset to zero.!^R Perform c-K within picture^R Insert CRLF before point^R Insert CRLF after point7S Fill display buf with partial lines from real buf4S Propagate display buf changes back to real buf4Edit Picture
^R Change Picture Display Column
^R Edit Picture Kill Line
^R Edit Picture New Line
^R Edit Picture Open Line
& Set Picture Display
& Update Picture Buffer
T+8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0'>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2