From mboxrd@z Thu Jan  1 00:00:00 1970
Path: news.gmane.org!.POSTED.blaine.gmane.org!not-for-mail
From: Stefan Kangas <stefan@marxist.se>
Newsgroups: gmane.emacs.bugs
Subject: bug#22843: perl-mode coloring sees too deeply into <<EOF
Date: Sat, 6 Jul 2019 05:40:40 +0200
Message-ID: <CADwFkmkSREE8uCcbwQu12nPg4jRg=_-wXKjmpByOXT60VOhtkQ@mail.gmail.com>
References: <87egbwwo53.fsf@jidanni.org>
Mime-Version: 1.0
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable
Injection-Info: blaine.gmane.org; posting-host="blaine.gmane.org:195.159.176.226";
	logging-data="116077"; mail-complaints-to="usenet@blaine.gmane.org"
Cc: 22843@debbugs.gnu.org
To: =?UTF-8?Q?=E7=A9=8D=E4=B8=B9=E5=B0=BC?= Dan Jacobson <jidanni@jidanni.org>
Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Sat Jul 06 05:41:11 2019
Return-path: <bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org>
Envelope-to: geb-bug-gnu-emacs@m.gmane.org
Original-Received: from lists.gnu.org ([209.51.188.17])
	by blaine.gmane.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
	(Exim 4.89)
	(envelope-from <bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org>)
	id 1hjbZV-000U2v-NX
	for geb-bug-gnu-emacs@m.gmane.org; Sat, 06 Jul 2019 05:41:09 +0200
Original-Received: from localhost ([::1]:57550 helo=lists1p.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.86_2)
	(envelope-from <bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org>)
	id 1hjbZU-00060H-53
	for geb-bug-gnu-emacs@m.gmane.org; Fri, 05 Jul 2019 23:41:08 -0400
Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:48336)
 by lists.gnu.org with esmtp (Exim 4.86_2)
 (envelope-from <Debian-debbugs@debbugs.gnu.org>) id 1hjbZP-000609-KT
 for bug-gnu-emacs@gnu.org; Fri, 05 Jul 2019 23:41:04 -0400
Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
 (envelope-from <Debian-debbugs@debbugs.gnu.org>) id 1hjbZO-00046y-De
 for bug-gnu-emacs@gnu.org; Fri, 05 Jul 2019 23:41:03 -0400
Original-Received: from debbugs.gnu.org ([209.51.188.43]:45259)
 by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16)
 (Exim 4.71) (envelope-from <Debian-debbugs@debbugs.gnu.org>)
 id 1hjbZO-00046l-8r
 for bug-gnu-emacs@gnu.org; Fri, 05 Jul 2019 23:41:02 -0400
Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2)
 (envelope-from <Debian-debbugs@debbugs.gnu.org>) id 1hjbZO-0000Kk-5a
 for bug-gnu-emacs@gnu.org; Fri, 05 Jul 2019 23:41:02 -0400
X-Loop: help-debbugs@gnu.org
In-Reply-To: <87egbwwo53.fsf@jidanni.org>
Resent-From: Stefan Kangas <stefan@marxist.se>
Original-Sender: "Debbugs-submit" <debbugs-submit-bounces@debbugs.gnu.org>
Resent-CC: bug-gnu-emacs@gnu.org
Resent-Date: Sat, 06 Jul 2019 03:41:02 +0000
Resent-Message-ID: <handler.22843.B22843.15623844591266@debbugs.gnu.org>
Resent-Sender: help-debbugs@gnu.org
X-GNU-PR-Message: followup 22843
X-GNU-PR-Package: emacs
Original-Received: via spool by 22843-submit@debbugs.gnu.org id=B22843.15623844591266
 (code B ref 22843); Sat, 06 Jul 2019 03:41:02 +0000
Original-Received: (at 22843) by debbugs.gnu.org; 6 Jul 2019 03:40:59 +0000
Original-Received: from localhost ([127.0.0.1]:54080 helo=debbugs.gnu.org)
 by debbugs.gnu.org with esmtp (Exim 4.84_2)
 (envelope-from <debbugs-submit-bounces@debbugs.gnu.org>)
 id 1hjbZK-0000KM-Kg
 for submit@debbugs.gnu.org; Fri, 05 Jul 2019 23:40:58 -0400
Original-Received: from mail-wr1-f48.google.com ([209.85.221.48]:44858)
 by debbugs.gnu.org with esmtp (Exim 4.84_2)
 (envelope-from <stefankangas@gmail.com>) id 1hjbZI-0000K6-VW
 for 22843@debbugs.gnu.org; Fri, 05 Jul 2019 23:40:57 -0400
Original-Received: by mail-wr1-f48.google.com with SMTP id p17so455710wrf.11
 for <22843@debbugs.gnu.org>; Fri, 05 Jul 2019 20:40:56 -0700 (PDT)
X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed;
 d=1e100.net; s=20161025;
 h=x-gm-message-state:mime-version:from:date:message-id:subject:to:cc
 :content-transfer-encoding;
 bh=N3WucMt86EpdZUUQkuzVBJo0RDSmnroQZUWDekoXs5s=;
 b=Pe2eFR2bqIiX9xOLl4qZax4pXVy5VKAs373UYn7TkdnsyvpxJNZf8Ijq3uc5SYthgO
 8K2kkjH07MHWrNluD5QrM2WZ17spSeZxiCbR0X/eTeN5fCHvNBdE4SSOzz/tGMRSU76m
 9I92wpMTbSvxxiAlGX2Bd/YDRr5//aBOXwfqxDOTTWPNHMxca755nunA8DbYdfUdbhEc
 srcVfUSDAR+zf5nVPz8kvSRMlLz6Z+Qi9MiVJPgcTt36A43l/IklrPHRLEwEwgRPmCXB
 mcQPnxxPlHA7bpdHF2LtkEzoJxY/XHkwN8BsGZrNXBIXX5aYCx9D7oARoz+sGqT/qW1t
 ThiQ==
X-Gm-Message-State: APjAAAXcs8gyu4kIXkW2YUc2l/yfCiSEcajrsuJUp3wCvyJoY+Ami9WW
 L/W1vpzn5mRfIomjiADzAG+DEottpypppRJZ7es=
X-Google-Smtp-Source: APXvYqxmYSa9e31desG1yYK4rFeWBs7mg9A8qMMGvOS+eVVQxBQ4KRTvPPVNoWMvGHNKyOwUeJzJz9HObb1G8zSukMw=
X-Received: by 2002:adf:f904:: with SMTP id b4mr6728873wrr.291.1562384451117; 
 Fri, 05 Jul 2019 20:40:51 -0700 (PDT)
X-BeenThere: debbugs-submit@debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic]
X-Received-From: 209.51.188.43
X-BeenThere: bug-gnu-emacs@gnu.org
List-Id: "Bug reports for GNU Emacs,
 the Swiss army knife of text editors" <bug-gnu-emacs.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/bug-gnu-emacs>,
 <mailto:bug-gnu-emacs-request@gnu.org?subject=unsubscribe>
List-Archive: <https://lists.gnu.org/archive/html/bug-gnu-emacs>
List-Post: <mailto:bug-gnu-emacs@gnu.org>
List-Help: <mailto:bug-gnu-emacs-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/bug-gnu-emacs>,
 <mailto:bug-gnu-emacs-request@gnu.org?subject=subscribe>
Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org
Original-Sender: "bug-gnu-emacs"
 <bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org>
Xref: news.gmane.org gmane.emacs.bugs:162176
Archived-At: <http://permalink.gmane.org/gmane.emacs.bugs/162176>

=E7=A9=8D=E4=B8=B9=E5=B0=BC Dan Jacobson <jidanni@jidanni.org> writes:

> After "print <<EOF;" the colors are all wrong!
>
> #!/usr/bin/perl
> # Make a sheet of my substandard size namecards
> # which hopefully fit all on one printer page.
> # Copyright       : http://www.fsf.org/copyleft/gpl.html
> # Created On      : July 2006
> # Last Modified On: Sun Feb 14 00:45:33 2016
> # Update Count    : 214
> use strict;
> use warnings FATAL =3D> 'all';
> ##use HTML::Table;
> use constant ONECARD =3D> <<\EOF;
> =E7=A9=8D=E4=B8=B9=E5=B0=BC Dan Jacobson<br>
> http://jidanni.org/<br>
> =E5=8F=B0=E4=B8=AD=E5=B8=82=E6=9D=B1=E5=8B=A2=E5=8D=80=E6=85=B6=E7=A6=8F=
=E8=A1=971-6=E8=99=9F<br>
> 0963-114343 04-25854780
> EOF
> print <<EOF;
> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN"
> "http://www.w3.org/TR/html4/strict.dtd">
> <html><head><meta http-equiv=3D"Content-Type" content=3D"text/html; chars=
et=3Dutf-8">
> <meta http-equiv=3D"Content-Language" content=3D"zh-tw">
> <!-- MADE VIA ~/namecard; WILL GET OVERWRITTEN-->
> <style type=3D"text/css">
> TD { text-align: center }
> </style>
> <title>Namecard</title></head><body>
> <table border=3D"1" cellspacing=3D"0" cellpadding=3D"18" summary=3D"Name =
cards">
> EOF
> ## cellpadding 17 will cause an extra page
> for ( 1 .. 8 ) {
> ## =E8=82=B2=E6=89=8D=E5=88=97=E5=8D=B0 was able to print 1..9 !
>     print '<tr>';
>     for ( 1 .. 3 ) {
>         print '<th>', ONECARD, '</th>';
>     }
>     print "</tr>\n";
> }
> print "</table>\n</body></html>\n";
>
> The previous print <<\EOF; doesn't have that problem.
>
> cperl-mode gets both correct.
>
> emacs-version "24.5.1"

I tried reproducing this on the latest version of Emacs, 26.2, but was
unable to.  The colors after "print <<EOF;" seemed fine to me.

Could you please try reproducing this with the latest version of Emacs?

Please also provide more details on what colors are wrong -- on what
line, which color you see and which you would have expected instead.

Thanks,
Stefan Kangas