Re: Indentations, PERL

[martin rudalics <rudalics@gmx.at>]

> What I think is the bug, is a problem with automatic indentations when I 
> type PERL programs. Let me get right to the point and I'll paste first 
> the code how it is automatically indented:
> 
> sub insert_sub {
>    return unless (save_slide());
>    my $after = 0;
> 
>    prompt(0, 'New Subtitle', "Would you like to " .
>       "insert the new subtitle\n" .
> Next, is how I believe would be a proper way to indent the same code:
> 
> sub insert_sub {
>    return unless (save_slide());
>    my $after = 0;
> 
>    prompt(0, 'New Subtitle', "Would you like to " .
>           "insert the new subtitle\n" .
>           "before the current one or after?",
>           [{GTK_ID => 'gtk-cancel',
>             LABEL => 'Cancel',
>             ALIGN => 'right',
>             SUB => sub { $after = -1;}},
>            {GTK_ID => 'gtk-go-back',
>             LABEL => 'Before',
>             ALIGN => 'left',
>             SUB => sub {$after = 0;}},
>            {GTK_ID => 'gtk-go-forward',
>             LABEL => 'After',
>             ALIGN => 'right',
>             SUB => sub {$after = 1}},
>           ]);
> 
>    if ($after == 0) {
>        insert_before($srt_idx);
>    } elsif ($after == 1) {
>        insert_before($srt_idx + 1);
>    }
> }
> 
> (Somehow the exact spacing differ here, but I think you can see the 
> difference in general.)
> 
> Basically after I enter "{... SUB => sub {}}," the indentation screws 
> up. I hope this makes sense.
> 
> Thanks,
> Alex.
> 
> 
> _______________________________________________
> bug-gnu-emacs mailing list
> bug-gnu-emacs@gnu.org
> http://lists.gnu.org/mailman/listinfo/bug-gnu-emacs
>