( [0+8+FQ(+4)[1 0FO10F"G+Q1 'W+FQ()+4U1 FQ1"L0' ,Q1:M(Q1+4(]1]0)) y)&{^3"%.!IcF m { # oL\Kc { gE  ~ E-Wk?M6<& Setup COLUMN Library0fo..QTwo Column Margin"e 3M.VTwo Column Margin'Make 2 ColumnsFF"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 & Make Two Columns[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 q5u..O hfx*Make 1 ColumnqEmacs 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.)"nzji i' j<.-z; q0,q2m1 l> zjg(q2[..Ohfx*(]..O)) & Move Column 2 to Other Buffer[0[1 0l.u0 :l .-q0-"gq0+j1:fx1'"#:i1' -@f  k [..Og1i i]..O 0lFlush Trailing Whitespace.:\[0fn0j <.-z;:l-@f  kl> Flush Extra CRs.:\[0fn0j <:s   ;-2d4r> Make BlocksFF&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 <,1a-"e0;'l%0> q0-q1"gq0u1' :s;0l> j <0U0 < ,1a-"e q1-q0 0;' l%0 > :s;r > b,zMake Two Column BlocksqEmacs 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& Split Blocks[0[1[2[3 j 0u0<,1a-@;l%0> <,1a-:@;l%0> 0u1fnq1"nq1fsbkill' fsbconsu1 q..Ou2 j<.-z; q0l q0fx3q1u..Og3q2u..O > q1u..Ohfx3q2u..Og3fkc ~Filename~COLUMN~DOC~ ~Filename~Macros for hacking more than one column ~DOC~ & Setup COLUMN Library& Initialize the world Init qTwo Column Margin if necessary ~DOC~ Make 2 ColumnsS 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 ~DOC~ & Make Two Columns& Helper for ^R Make 2 Columns ~DOC~ Make 1 ColumnS 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. ~DOC~ & Move Column 2 to Other Bufferx& 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. ~DOC~ Flush Trailing WhitespaceS Flush whitespace at end of each line Does this from point to end of buffer ~DOC~ Flush Extra CRsS Flush redundant carriage returns Does this from point to end of buffer ~DOC~ Make BlocksS Separate text into blocks of same number of lines ~DOC~ Make Two Column BlocksLike 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 ~DOC~ & Split Blocks& Helper for Make Two Column Blocks ~DIRECTORY~& 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 ~INVERT~[1Q1