Google
 
Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/columns.elib
There are no other files named columns.elib in the archive.
(W
[0+8+FQ(+4)[1
0FO10F"G+Q1'
+FQ()+4U1
FQ1"L0'
,Q1:M(Q1+4(]1]0))
   y|

&|/E82GO5X[`gmHtj
hNsj	Qns#& Move Column 2 to Other Buffer& Setup COLUMN Library& Split BlocksFlush Extra CRsFlush Trailing WhitespaceMake 1 ColumnMake 2 ColumnsMake BlocksMake Two Column Blocks~DIRECTORY~~DOC~ & Make Two Columns)~DOC~ & Move Column 2 to Other Buffer ~DOC~ & Setup COLUMN Library~DOC~ & Split Blocks~DOC~ Flush Extra CRs#~DOC~ Flush Trailing Whitespace~DOC~ Make 1 Column~DOC~ Make 2 Columns~DOC~ Make Blocks ~DOC~ Make Two Column Blocks~DOC~ ~Filename~~Filename~

~INVERT~70fo..QTwo Column Margin"e
3M.VTwo Column Margin'.FF"n"l
:i*NEG	Negative arg not allowedfserr''
ff&2"e
qEmacs Version-132"g
hm(m.m& Save for Undo)Make 2 Columns''
fm(m.m& Make Two Columns)[0
jg0zk
[0[1[2[3[4[5
b,.x1
.,zx2
f[bbind
g1j
0u3
<.-z;
.-(:lw.)u4
q4+q3"l-q4u3'
l>
q3+(ff&1"eqTwo Column Margin'"#')u3
0u0fnq0f"nfsbkill'w
fsbconsu0
q..Ou5j
q0u..Og2j
<q0u..O
-z;
1:fx4k
q5u..O
q3+(.-(:lw.)),40.i
g4
.-(l.)"e
i'
>
q5u..O
hfx*eqEmacs Version-132"g
hm(m.m& Save for Undo)Make 1 Column'
[0[1[2
m.m& Move Column 2 to Other Bufferu1
0u2fnq2f"nfsbkill'w
fsbconsu2
.-(0l.)u0
zj.-(0l.)"nzj
i'
j<.-z;
q0,q2m1
l>
zjg(q2[..Ohfx*(]..O))
S[0[1
0l.u0
:l
.-q0-"gq0+j1:fx1'"#:i1'
-@f 	k
[..Og1
i]..O
0l'.:\[0fn0j
<.-z;:l-@f 	kl>
+.:\[0fn0j
<:s


;-2d4r>
FF&2"e
qEmacs Version-132"g
hm(m.m& Save for Undo)Make Blocks''
[0[1
jm(m.mFlush Trailing Whitespace)
jm(m.mFlush Extra CRs)
@f
 	k
j0u1
<0U0
<a-l%0>
q0-q1"gq0u1'
:s;0l>
j
<0U0
<
1a-
q1-q0<i
>
0;'
l%0
>
:s;r
>
b,z*qEmacs Version-132"g
hm(m.m& Save for Undo)Make Two Column Blocks'
[0
j1,m(m.mMake Blocks)
zj-@f
k
i

ff"n
j0u0<%0wl.-z;>
j(q0/2-2)l
:s


sr'
"#
jm(m.m& Split Blocks)'
1,@m(m.mMake 2 Columns)
jm(m.mFlush Trailing Whitespace)
jm(m.mFlush Extra CRs)
b,z [0[1[2[3
j
0u0<>
<a-0>
0u1fnq1"nq1fsbkill'
fsbconsu1
q..Ou2
j<.-z;
q0l
q0fx3q1u..Og3q2u..O
>
q1u..Ohfx3q2u..Og3fkc

COLUMN+Macros for hacking more than one columnB& Initialize the world
Init qTwo Column Margin if necessaryDS Make this long, skinny file into a short, fat one
Take the text following the cursor and join it to the stuff following the
cursor making two columns. 

With no arg, Uses qTwo Column Margin (Default=3) as the amount
of space to leave between the columns at their narrowest point.
With an arg, uses the argument as the size of the margin.

A pre-comma arg menas it is being called from a macro and should not 
do an MM & Setup for Undo#& Helper for ^R Make 2 Columns S Make long, skinny buffer out of short, fat one
Starting from the horizontal position, assume rest of line is column 2.
Move rest of all lines (column 2) into second buffer, flushing trailing
spaces on each column 1 that is left showing. Then yank back other buffer.v& Move end of line to end of buffer.
Use arg1 as width of column 1. Move to column 2, snarf rest of line flushing
trailing whitespace in column 1. Jump to other buffer (arg 2) and yank back 
text. Return to beginning of line we started on.QS Flush whitespace at end of each line
Does this from point to end of bufferMS Flush redundant carriage returns
Does this from point to end of buffer7S Separate text into blocks of same number of linesLike MM Make Blocks but for 1->2 column format
A pre-comma arg menas it is being called from a macro and should not 
do an MM & Setup for Undo'& Helper for Make Two Column BlocksQ& Setup COLUMN Library
Make 2 Columns
& Make Two Columns
Make 1 Column
& Move Column 2 to Other Buffer
Flush Trailing Whitespace
Flush Extra CRs
Make Blocks
Make Two Column Blocks
& Split Blocks
T+8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0'>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2