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

[Warren L Dodge]

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;address@hidden&5R;address@hidden
M;"UC;VQU;6XZ(#$X,address@hidden;65N="UC;VQU;6XZ(address@hidden(R!54T5$
M($)9($9%5$]/3%,@(PH*(R!A9&0@<address@hidden&\@<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,@:address@hidden"14=)3B!T;R!M86ME(&1E8G5G(&5A<VEE<B`*
M>R`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@
M("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@(",@<VEN
M8V4@:address@hidden<&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('address@hidden(&]F(&-O;VMB
M;V]K"address@hidden&EE(")<;EQN7&%&:6YD0FEN(&1I9"!N;address@hidden:address@hidden@
M>6]U<B!D:7)E8W1O<GD@:7,@;F\@;&]N9V5R(&5X:7-T:6YG/UQN7&Y<;B(@
M:address@hidden"`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@;address@hidden<@
M:address@hidden('-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@("address@hidden"`D<')O9W)A;5]N86UE<U]R968@
M+"`D=&AI<U]P<F]G<F%M("D@/2`F<')O8V5S<U]S=VET8VAE<address@hidden"!<0$%2
address@hidden"`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;address@hidden@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('address@hidden&\@;6%R:R!S:6=N86QS('address@hidden)E(&EN('1H92!0
M1TY$(&1A=&$*("`@("1P<F]G<F%M7VYA;65S7W)E9BT^>TM%65]73U)+24Y'
M1$E2?2`](&-W9"@I.R`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@
M("`@("`@(address@hidden&AE('=O<FMI;F<@9&ER96-T;W)Y"B`@("`*("`@("9L
M;V=?<'-D7W)E;&5A<address@hidden"`B(B`I.R`@("`@("`@("`@("`@("`@("`@("`@
M("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@(",@9V\@;&]G('1H
M92!P<address@hidden@=VET:"!N;R!A9&1I=&EO;F%L(&EN9F\*("`@(`H@("`@
M<')I;G0@(EQN7&Y!;B!E;6%I;"!W:6QL(&)E('-E;address@hidden&\@>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:&address@hidden<B!W:&5N('=E(&%R92!D;address@hidden@("`@"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;address@hidden&\@<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("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@(",@:address@hidden@87)E
M(&5X=')A8W1I;F<@82!N971L:7-T(&9R;address@hidden<address@hidden@("`@>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("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@(",@address@hidden&address@hidden&AE(&-R
M96%T:6]N(&%S:VEN9R!F;W(@8F]A<F0@;FYA;64@:68@;F]T('1H97)E"B`@
M("`@("9S96YD7W5S97)?96UA:address@hidden"`D;6%I;%]M<V<@+"`D<')O9W)A;5]N
M86UE<address@hidden("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@
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;address@hidden@(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,address@hidden"`H("address@hidden@)$%21U9;,address@hidden"`H(&1E9FEN960@)$%21U9;
M,address@hidden@("`@("`@(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<address@hidden"`B375S="!S<&5C:69Y(&]N92!O<F-A9#$@;F5T
M;&ES="!F:6QE;F%M92XB("address@hidden@(R!T:&5N('1E;&P@:&EM"B`@("`@('T*
M("`@("`@:address@hidden"`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<address@hidden@("`@("`@("`@(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:address@hidden"`D;6%I;%]M<V<@+"`D<')O9W)A;5]N86UE<address@hidden("`@("`@
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("`@("`@(",@:address@hidden@87)E(&-O;G9E<G1I;F<@86X@;W)C860@;F5T;&ES
M="!S='EL92`R"B`@("!["B`@("`@(&EF("@H("address@hidden&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(&address@hidden<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('address@hidden&5L;"!H:6T*("`@("address@hidden@
M("`@("!I9B`H("1P<F]G<F%M7VYA;65S7W)E9BT^>TM%65]35TE40TA%4WTM
M/GMR96=R:61?:6YP=71](#T](address@hidden@("`@("!["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*("`@("address@hidden@("`@("!["B`@("`@("`@
M)&UA:6Q?;7-G("X]("9R96=R:61?;W)C860R7VYE=&QI<address@hidden"`B)$%21U9;
M,%TB("P@)'!R;V=R86U?;F%M97-?<F5F("D[("`@("`C(&=O(&1O(&YE=&QI
M<W0@;address@hidden&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;address@hidden&AE(&5M86EL"B`@("`@
M(')E='5R;CL@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@
M("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@(R!A;F0@
M97AI=`H@("address@hidden@("`@:address@hidden"`D=&AI<U]P<F]G<F%M(&5Q(")P861S7S)?
M;F5T;&ES="(@*2`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@
M("`@("`@(R!I9B!W92!A<address@hidden&]I;F<@82!P861S(&YE=&QI<W0*("`@('L*
M("`@("`@:address@hidden"@@(2!D969I;F5D("1!4D=66S!=("address@hidden'address@hidden"`A("UF("1!
M4D=66S!=("address@hidden'address@hidden"!D969I;F5D("1!4D=66S%=("DI("`@("`@(",@:68@
M;address@hidden)G+"!N;address@hidden:6QE(&]R(&UO<address@hidden&AE;B!O;address@hidden)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:address@hidden"`D;6%I;%]M<V<@+"`D<')O9W)A;5]N86UE<address@hidden
M("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@
M("`@("`@("`@("`@("`@("`@(R!S96YD('1H92!E;6%I;`H@("`@("!R971U
M<FX[("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@
M("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@
M("`@("`@("`@("`@("`@("`@("`@(",@86YD(')E='5R;@H@("address@hidden@"B`@
$?0I]"@``
`
end