help-gnu-emacs
[Top][All Lists]
Advanced
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Tab stops in perl mode broken?

From: Stefan Monnier
Subject: Re: Tab stops in perl mode broken?
Date: 21 May 2003 12:22:27 -0400
User-agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.3.50 
>>>>> "Johnny" == Johnny L Wales <johnny@mail.booksys.com> writes:
> Ok, I have this astonishingly annoying problem in perl mode. I can't get
> proper indention on some lines. Check this out:

> ------------
> if(defined($rqpairs{'area'})) {
>     print "Content-type: text/html\n\n";
>     print "<html>";
>     print "<head><title>Canvassing report: $rqpairs{'area'}</title></head>\n";
>     print "<body bgcolor=white>";
>     print "Canvassing report for $rqpairs{'area'}<br>";

>     $dbcmd = "SELECT count(*) FROM calls WHERE ( (outgoingnum like ";
>     $dbcmd .= "'P1$rqpairs{'area'}%') OR (outgoingnum like 'P0";
>     $dbcmd .= "$rqpairs{'area'}\%')) ";
>     ($year, $month, $day) = Date::Calc::Today();
> ($o_year, $o_month, $o_day) = Date::Calc::Add_Delta_Days($year, $month,
> $day, -\
> 30);
> $dstr = sprintf("'%04d-%02d-%02d' AND '%04d-%02d-%02d'",
>                 $o_year, $o_month, $o_day, $year, $month, $day);
> $dbcmd .= "AND (calldate between $dstr) ORDER BY calldate;";
> $sth = $dbh -> prepare($dbcmd);
> $sth->execute;
> $count = $sth->fetchrow_array;
> ---------

I have just tried the above with `emacs-21.3 -q --no-site-file' and couldn't
reproduce your problem.  The ($o_year...) lines gets properly indented
below the previous line.

Could you show us a more complete example where the problem can be
reproduced ?


        Stefan


PS: Yes, the default perl-mode is not as sophisticated as cperl-mode.
Note that the version in the Emacs repository is significantly improved
in some areas (provided you use font-lock).
reply via email to
[Prev in Thread] Current Thread [Next in Thread]