bug-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Indentations, PERL


From: martin rudalics
Subject: Re: Indentations, PERL
Date: Wed, 27 Jun 2007 10:00:36 +0200
User-agent: Mozilla Thunderbird 1.0 (Windows/20041206)

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
address@hidden
http://lists.gnu.org/mailman/listinfo/bug-gnu-emacs






reply via email to

[Prev in Thread] Current Thread [Next in Thread]