unofficial mirror of help-gnu-emacs@gnu.org
 help / color / mirror / Atom feed
From: "Stefan Monnier" <monnier+gnu.emacs.help/news/@flint.cs.yale.edu>
Subject: Re: Tab stops in perl mode broken?
Date: 21 May 2003 12:22:27 -0400	[thread overview]
Message-ID: <5lptmcmfr0.fsf@rum.cs.yale.edu> (raw)
In-Reply-To: mailman.6487.1053461876.21513.help-gnu-emacs@gnu.org

>>>>> "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).

  parent reply	other threads:[~2003-05-21 16:22 UTC|newest]

Thread overview: 8+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
     [not found] <mailman.6487.1053461876.21513.help-gnu-emacs@gnu.org>
2003-05-20 22:38 ` Tab stops in perl mode broken? lawrence mitchell
2003-05-21 14:37   ` Johnny L. Wales
2003-05-21 16:22 ` Stefan Monnier [this message]
2003-05-22 11:03 ` Kai Großjohann
2003-05-22 11:36 ` Oliver Scholz
     [not found] <mailman.6530.1053528247.21513.help-gnu-emacs@gnu.org>
2003-05-21 15:33 ` lawrence mitchell
2003-05-21 19:37 ` Edward O'Connor
2003-05-20 20:12 Johnny L. Wales

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

  List information: https://www.gnu.org/software/emacs/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=5lptmcmfr0.fsf@rum.cs.yale.edu \
    --to=monnier+gnu.emacs.help/news/@flint.cs.yale.edu \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).