Re: perl-mode problem in C-x ; comment-set-column

[Warren L Dodge <warrend@tektronix.com>]

Hi Stefan

I tried a few things and am sending an example.

If you take the file I send as is and do

emacs-22.0.990  -Q filename

C-x(C-s#<cr><esc>;C-aC-nC-x)

I.E. define a macro to search for #, stop the search, do <esc>; , and then
move to the next line beginning.

Then execute that macro for the whole buffer you will see (at least I do )
that the lines do not change

IF you then go change all the lines so there is only one space before the #
and re-execute the macro above all the lines will line up.

I comment "randomly" and then go back to clean them up using the macro method
above.

When adding comment the <esc>; to add a new comment will wander all over the
place. If needed I can take time to find a sample for that after we settle on
this first one.

begin 664 perlcomment1.pl
M(R$O=&]O;',O=V1T+V)I;B]P97)L("UW"B,@+2HM;6]D93H@4&5R;#L@9FEL
M;"UC;VQU;6XZ(#$X,#L@8V]M;65N="UC;VQU;6XZ(#@U.R`M*BT*(R!54T5$
M($)9($9%5$]/3%,@(PH*(R!A9&0@<W1U9F8@=&\@<F5A9"!D:6%L<W1F+F1A
M="!T;R!G970@<F5F('1O('!A<G0M;G5M8F5R(&1A=&$N"B,@9F]R(&1E<V-R
M:7!T:6]N<PHC"G-U8B!"14=)3B`@("`@("`@("`@("`@("`@("`@("`@("`@
M("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@
M("`@("`C(&=O97,@:6X@82!"14=)3B!T;R!M86ME(&1E8G5G(&5A<VEE<B`*
M>R`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@
M("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@(",@<VEN
M8V4@:70@8V]M<&QE=&5S('!R:6]R('1O(&1E8G5G"B`@<F5Q=6ER92`U+C`P
M-3L@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@
M("`@("`@("`@("`@("`@("`@("`@("`@("`C(&UA:V4@<W5R92!W92!H879E
M(&%T(&QE87-T('1H:7,@<&5R;`H@('5S92!&:6YD0FEN('%W*"1":6XI.R`@
M("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@
M("`@("`@("`@("`@("`@(R!M86=I8R!F<F]M('!A9V4@-#$U(&]F(&-O;VMB
M;V]K"B`@9&EE(")<;EQN7&%&:6YD0FEN(&1I9"!N;W0@=V]R:RX@36%Y8F4@
M>6]U<B!D:7)E8W1O<GD@:7,@;F\@;&]N9V5R(&5X:7-T:6YG/UQN7&Y<;B(@
M:68@*"`A(&1E9FEN960@)$)I;B`I.PH@('5S92!L:6(@(B1":6XO+BXO<&U?
M9FEL97,B(#L@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@
M("`@("`@("`@("`@("`@("`@(R!T;R!M86ME(&9I;F1I;F<@;&EB<F%R:65S
M(&5A<WD*("!R97%U:7)E('!S9%]A=71O;&]A9%]A<G)A>3L*"B`@)%Y7(#TQ
M(&EF("@@9&5F:6YE9"`D14Y6>U!%4DQ?5T%23DE.1U-]("D[("`@("`@("`@
M("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`C('1U<FX@;VX@+7<@
M:68@96YV('-A>7,@=&\*("!P<FEN="`B7&Y0<F]G<F%M(%)U;FYI;F<Z("0P
M7&XB(&EF("@@9&5F:6YE9"`D14Y6>U!%4DQ?4TA/5U]"24Y]("D["GT*>PH@
M("0A(#T@,3L*("!E=F%L"B`@>PH@("`@*"`D<')O9W)A;5]N86UE<U]R968@
M+"`D=&AI<U]P<F]G<F%M("D@/2`F<')O8V5S<U]S=VET8VAE<R`@*"!<0$%2
M1U8@+"`B)#`B("D[("`@(R!G;R!P<F]C97-S('1H92!S=VET8VAE<PH*("`@
M("1P<F]G<F%M7VYA;65S7W)E9BT^>TM%65]35TE40TA%4WTM/GMS:VEP7V-R
M96%T97T@/2`P(#L@("`@("`@("`@("`@("`@("`@("`@("`@("`@(R!A<W-U
M;64@=V4@87)E(&=O:6YG('1O(&-R96%T92!D:6%L(&YE=&QI<W1S"B`@("`D
M<'=R7VUA<FME<B`]("(J*BHJ(CL@("`@("`@("`@("`@("`@("`@("`@("`@
M("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@(",@<W1R:6YG
M('1O(&)E('5S960@=&\@;6%R:R!S:6=N86QS('1H870@87)E(&EN('1H92!0
M1TY$(&1A=&$*("`@("1P<F]G<F%M7VYA;65S7W)E9BT^>TM%65]73U)+24Y'
M1$E2?2`](&-W9"@I.R`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@
M("`@("`@(R!G970@=&AE('=O<FMI;F<@9&ER96-T;W)Y"B`@("`*("`@("9L
M;V=?<'-D7W)E;&5A<V4@*"`B(B`I.R`@("`@("`@("`@("`@("`@("`@("`@
M("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@(",@9V\@;&]G('1H
M92!P<V0@=7-A9V4@=VET:"!N;R!A9&1I=&EO;F%L(&EN9F\*("`@(`H@("`@
M<')I;G0@(EQN7&Y!;B!E;6%I;"!W:6QL(&)E('-E;G0@=&\@>6]U(&%F=&5R
M('1H92!P<F]C97-S(&ES(&1O;F4N7&Y<;B(["B`@("`D;6%I;%]M<V<@/2`B
M(CL@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@
M("`@("`@("`@("`@("`@("`@("`@("`C(&)U:6QD('5P(&$@;6%I;"!M97-S
M86=E(&9O<B!T:&4@=7-E<B!W:&5N('=E(&%R92!D;VYE+@H@("`@"B`@("`D
M<')O9W)A;5]N86UE<U]R968M/GM+15E?4U=)5$-(15-]+3Y[9&]?9&EA;%]I
M;F9O?2`](#`[("`@("`@("`@("`@("`@("`@("`@("`@("`C('-E="!T;R!N
M;W0@9&\@<W!E8VEA;"!D:6%L(&EN9F\@:6X@;W5T<'5T"B`@("`*("`@(&EF
M("@@)'1H:7-?<')O9W)A;2!E<2`B86QL96=R;U\R7VYE=&QI<W0B("D@("`@
M("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@(",@:68@=V4@87)E
M(&5X=')A8W1I;F<@82!N971L:7-T(&9R;VT@82!B<F0@9FEL90H@("`@>PH@
M("`@("`D;6%I;%]M<V<@+CT@("`@("9A;&QE9W)O7S)?;F5T;&ES="`H("1P
M<F]G<F%M7VYA;65S7W)E9B`I.R`@("`@("`@("`@("`@("`@("`@("`@("`@
M("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@(",@9V\@9&\@=&AE(&-R
M96%T:6]N(&%S:VEN9R!F;W(@8F]A<F0@;FYA;64@:68@;F]T('1H97)E"B`@
M("`@("9S96YD7W5S97)?96UA:6P@*"`D;6%I;%]M<V<@+"`D<')O9W)A;5]N
M86UE<U]R968@*2`[("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@
M("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@(R!S96YD('1H92!E;6%I
M;`H@("`@("!R971U<FX[("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@
M("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@
M("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@(",@86YD('=E(&%R
M92!D;VYE"B`@("!]"B`@("!I9B`H("1T:&ES7W!R;V=R86T@97$@(F]R8V%D
M,5\R7VYE=&QI<W0B("D@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@
M("`@("`@("`C(&EF('=E(&%R92!C;VYV97)T:6YG(&%N(&]R8V%D(&YE=&QI
M<W0@<W1Y;&4@,0H@("`@>PH@("`@("!I9B`H*"`A(&1E9FEN960@)$%21U9;
M,%T@*2!\?"`H("$@+68@)$%21U9;,%T@*2!\?"`H(&1E9FEN960@)$%21U9;
M,5T@*2D@("`@("`@(R!I9B!N;R!A<F<L(&YO="!A(&9I;&4@;W(@;6]R92!T
M:&5N(&]N92!A<F<@='EP960*("`@("`@>PH@("`@("`@("9A8F]R=%]W:71H
M7W5S97)?<F5S<&]N<V4@*"`B375S="!S<&5C:69Y(&]N92!O<F-A9#$@;F5T
M;&ES="!F:6QE;F%M92XB("D@.R`@(R!T:&5N('1E;&P@:&EM"B`@("`@('T*
M("`@("`@:68@*"`D<')O9W)A;5]N86UE<U]R968M/GM+15E?4U=)5$-(15-]
M+3Y[<F5G<FED7VEN<'5T?2`]/2`P("D*("`@("`@>PH@("`@("`@("1M86EL
M7VUS9R`N/2`F;W)C860Q7S)?;F5T;&ES="`H("(D05)'5ELP72(@+"`D<')O
M9W)A;5]N86UE<U]R968@*3L@("`@("`@("`@(R!G;R!D;R!N971L:7-T(&]N
M('1H:7,@9FEL90H@("`@("!]"B`@("`@(&5L<V4*("`@("`@>PH@("`@("`@
M("1M86EL7VUS9R`N/2`F<F5G<FED7V]R8V%D,5]N971L:7-T("@@(B1!4D=6
M6S!=(B`L("1P<F]G<F%M7VYA;65S7W)E9B`I.R`@("`@(R!G;R!D;R!N971L
M:7-T(&]N('1H:7,@9FEL90H@("`@("!]"B`@("`@("9S96YD7W5S97)?96UA
M:6P@*"`D;6%I;%]M<V<@+"`D<')O9W)A;5]N86UE<U]R968@*2`[("`@("`@
M("`@("`@("`@("`@("`@("`@("`@("`@(R!S96YD('1H92!E;6%I;`H@("`@
M("!R971U<FX[("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@
M("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@(",@86YD
M(&5X:70*("`@('T*("`@(&EF("@@)'1H:7-?<')O9W)A;2!E<2`B;W)C860R
M7S)?;F5T;&ES="(@*2`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@
M("`@("`@(",@:68@=V4@87)E(&-O;G9E<G1I;F<@86X@;W)C860@;F5T;&ES
M="!S='EL92`R"B`@("!["B`@("`@(&EF("@H("$@9&5F:6YE9"`D05)'5ELP
M72`I('Q\("@@(2`M9B`D05)'5ELP72`I('Q\("@@9&5F:6YE9"`D05)'5ELQ
M72`I*2`@("`@("`C(&EF(&YO(&%R9RP@;F]T(&$@9FEL92!O<B!M;W)E('1H
M96X@;VYE(&%R9R!T>7!E9`H@("`@("!["B`@("`@("`@)F%B;W)T7W=I=&A?
M=7-E<E]R97-P;VYS92`H(")-=7-T('-P96-I9GD@;VYE(&]R8V%D,B!N971L
M:7-T(&9I;&5N86UE+B(@*2`[("`C('1H96X@=&5L;"!H:6T*("`@("`@?0H@
M("`@("!I9B`H("1P<F]G<F%M7VYA;65S7W)E9BT^>TM%65]35TE40TA%4WTM
M/GMR96=R:61?:6YP=71](#T](#`@*0H@("`@("!["B`@("`@("`@)&UA:6Q?
M;7-G("X]("9O<F-A9#)?,E]N971L:7-T("@@(B1!4D=66S!=(B`L("1P<F]G
M<F%M7VYA;65S7W)E9B`I.R`@("`@("`@("`C(&=O(&1O(&YE=&QI<W0@;VX@
M=&AI<R!F:6QE"B`@("`@('T*("`@("`@96QS90H@("`@("!["B`@("`@("`@
M)&UA:6Q?;7-G("X]("9R96=R:61?;W)C860R7VYE=&QI<W0@*"`B)$%21U9;
M,%TB("P@)'!R;V=R86U?;F%M97-?<F5F("D[("`@("`C(&=O(&1O(&YE=&QI
M<W0@;VX@=&AI<R!F:6QE"B`@("`@('T*("`@("`@)G-E;F1?=7-E<E]E;6%I
M;"`H("1M86EL7VUS9R`L("1P<F]G<F%M7VYA;65S7W)E9B`I(#L@("`@("`@
M("`@("`@("`@("`@("`@("`@("`@("`C('-E;F0@=&AE(&5M86EL"B`@("`@
M(')E='5R;CL@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@
M("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@(R!A;F0@
M97AI=`H@("`@?0H@("`@:68@*"`D=&AI<U]P<F]G<F%M(&5Q(")P861S7S)?
M;F5T;&ES="(@*2`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@
M("`@("`@(R!I9B!W92!A<F4@9&]I;F<@82!P861S(&YE=&QI<W0*("`@('L*
M("`@("`@:68@*"@@(2!D969I;F5D("1!4D=66S!=("D@?'P@*"`A("UF("1!
M4D=66S!=("D@?'P@*"!D969I;F5D("1!4D=66S%=("DI("`@("`@(",@:68@
M;F\@87)G+"!N;W0@82!F:6QE(&]R(&UO<F4@=&AE;B!O;F4@87)G('1Y<&5D
M"B`@("`@('L*("`@("`@("`F86)O<G1?=VET:%]U<V5R7W)E<W!O;G-E("@@
M(DUU<W0@<W!E8VEF>2!O;F4@<&%D<R!N971L:7-T(&9I;&5N86UE+B(@*3L@
M("`@(",@=&AE;B!T96QL(&AI;0H@("`@("!]"B`@("`@("1M86EL7VUS9R`N
M/2`F<&%D<U\R7VYE=&QI<W0@("@@(B1!4D=66S!=(B`L("1P<F]G<F%M7VYA
M;65S7W)E9B`I.R`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@
M("`@("`@("`@("`@("`@(R!G;R!P<F]C97-S(&ET"B`@("`@("9S96YD7W5S
M97)?96UA:6P@*"`D;6%I;%]M<V<@+"`D<')O9W)A;5]N86UE<U]R968@*2`[
M("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@
M("`@("`@("`@("`@("`@("`@(R!S96YD('1H92!E;6%I;`H@("`@("!R971U
M<FX[("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@
M("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@
M("`@("`@("`@("`@("`@("`@("`@(",@86YD(')E='5R;@H@("`@?2`@"B`@
$?0I]"@``
`
end