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