From unknown Thu Jun 19 14:32:23 2025 X-Loop: help-debbugs@gnu.org Subject: bug#27697: #27254 patch Resent-From: vividsnow Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Fri, 14 Jul 2017 23:32:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 27697 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: To: 27697@debbugs.gnu.org X-Debbugs-Original-To: bug-gnu-emacs@gnu.org Received: via spool by submit@debbugs.gnu.org id=B.150007507814029 (code B ref -1); Fri, 14 Jul 2017 23:32:01 +0000 Received: (at submit) by debbugs.gnu.org; 14 Jul 2017 23:31:18 +0000 Received: from localhost ([127.0.0.1]:39375 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1dWA3K-0003eD-0O for submit@debbugs.gnu.org; Fri, 14 Jul 2017 19:31:18 -0400 Received: from eggs.gnu.org ([208.118.235.92]:58507) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1dW9mi-0003ED-SV for submit@debbugs.gnu.org; Fri, 14 Jul 2017 19:14:09 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1dW9mc-0002JD-PE for submit@debbugs.gnu.org; Fri, 14 Jul 2017 19:14:03 -0400 X-Spam-Checker-Version: SpamAssassin 3.3.2 (2011-06-06) on eggs.gnu.org X-Spam-Level: X-Spam-Status: No, score=0.0 required=5.0 tests=BAYES_40,FREEMAIL_FROM, T_DKIM_INVALID autolearn=disabled version=3.3.2 Received: from lists.gnu.org ([2001:4830:134:3::11]:49180) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1dW9mc-0002J7-Lc for submit@debbugs.gnu.org; Fri, 14 Jul 2017 19:14:02 -0400 Received: from eggs.gnu.org ([2001:4830:134:3::10]:49475) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1dW9mb-0001Pu-L5 for bug-gnu-emacs@gnu.org; Fri, 14 Jul 2017 19:14:02 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1dW9mY-0002IT-Gu for bug-gnu-emacs@gnu.org; Fri, 14 Jul 2017 19:14:01 -0400 Received: from mail-lf0-x22e.google.com ([2a00:1450:4010:c07::22e]:35528) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1dW9mY-0002IK-8y for bug-gnu-emacs@gnu.org; Fri, 14 Jul 2017 19:13:58 -0400 Received: by mail-lf0-x22e.google.com with SMTP id b207so60922662lfg.2 for ; Fri, 14 Jul 2017 16:13:56 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=to:from:subject:message-id:date:user-agent:mime-version :content-language; bh=jI+hxviLNi0RnjClzTiqqfoKGgx9oT4aYAjOPuoSQek=; b=JgwlSNgtjXGBSe0nhH1J510/fkVajsyTOf7Cfo8WMQyGeNFj7SnEPohEsvMFWdeCva Oyi0B8ZC6rJ5LtkH6MURwUqr8wmPr034xCwxOvk+U1N6REZ41bon6IEoX3u/jwEUEDg2 BfFlhTt2iKaUD+qYIQdkzTzjF5MUjQgrxW+LrLTKyxloaadsOysVOE8RNGo7zLppmuWV mVhCPqXF0DZU5IiYVGs/lmC79fBZJBz5VE0XS8zM9/JZGtaQxbkNWYFJQQgdF1OVYhap 5EoNZKxnFiMq3JrhNJa7OFNvbDjs5uD+SFebfyn2FYn9XUVIlQ0IKF/4Z+Yqqs8zq2sD s6vw== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:to:from:subject:message-id:date:user-agent :mime-version:content-language; bh=jI+hxviLNi0RnjClzTiqqfoKGgx9oT4aYAjOPuoSQek=; b=pcSPiaxUnhfsAdifAAR0LxzycGZNjML5YITiI46JHa2U8DCIUAphC8H2eILB7Lr+Pb nmtgiDxSO+0IjZ9HWZG8RW4RPBwj9s5cLBIHZXz3ZcD5kIOWG36qWbdY+cAyvDvcmE5f qIYhUimmGtG5XN9/egz7daglwzeCtQWVzcQmgiksz9bBbkIPi3d1HqcPU938o/PuPOxY 8VJTt9rghjR8ALPP0nkQ8NeyMwob8PYryfPhwyvI12jPwtrkuD57BlE5tI5FM/7dR6Tp 24Hf9wWxeDwfojcSKfCHjiyWVNiVdXqpA41JdUkJgCy1Pk1Xddfz0k1MTb1GSPus1o2N ZGiA== X-Gm-Message-State: AIVw110ypobzQFzmHCz38rNky4AU/K3TCy7sZ+Hd6TolBIyyRkTunole 8EIJ+Wu05DshyzvEOvc= X-Received: by 10.25.15.74 with SMTP id e71mr3300213lfi.7.1500074035153; Fri, 14 Jul 2017 16:13:55 -0700 (PDT) Received: from [0.0.0.0] ([91.218.231.35]) by smtp.gmail.com with ESMTPSA id b123sm2261757lfb.22.2017.07.14.16.13.52 for (version=TLS1_2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128); Fri, 14 Jul 2017 16:13:53 -0700 (PDT) From: vividsnow Message-ID: Date: Sat, 15 Jul 2017 02:13:52 +0300 User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:52.0) Gecko/20100101 Thunderbird/52.2.1 MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="------------6700B9627BA3BDA2EAD36014" Content-Language: en-US X-detected-operating-system: by eggs.gnu.org: Genre and OS details not recognized. X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x X-Received-From: 2001:4830:134:3::11 X-Spam-Score: -4.0 (----) X-Mailman-Approved-At: Fri, 14 Jul 2017 19:31:17 -0400 X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -4.0 (----) This is a multi-part message in MIME format. --------------6700B9627BA3BDA2EAD36014 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: 7bit --------------6700B9627BA3BDA2EAD36014 Content-Type: text/x-patch; name="cperl-indented-heredocs.diff" Content-Transfer-Encoding: 7bit Content-Disposition: attachment; filename="cperl-indented-heredocs.diff" diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el index c0f1aaf39d..c69eca2241 100644 --- a/lisp/progmodes/cperl-mode.el +++ b/lisp/progmodes/cperl-mode.el @@ -3734,7 +3734,7 @@ the sections using `cperl-pod-head-face', `cperl-pod-face', "\\(\\`\n?\\|^\n\\)=" ; POD "\\|" ;; One extra () before this: - "<<" ; HERE-DOC + "<<~?" ; HERE-DOC "\\(" ; 1 + 1 ;; First variant "BLAH" or just ``. "[ \t]*" ; Yes, whitespace is allowed! @@ -4000,7 +4000,7 @@ the sections using `cperl-pod-head-face', `cperl-pod-face', (setq b (point)) ;; We do not search to max, since we may be called from ;; some hook of fontification, and max is random - (or (and (re-search-forward (concat "^" qtag "$") + (or (and (re-search-forward (concat "^[ \t]*" qtag "$") stop-point 'toend) ;;;(eq (following-char) ?\n) ; XXXX WHY??? ) --------------6700B9627BA3BDA2EAD36014-- From debbugs-submit-bounces@debbugs.gnu.org Fri Jul 14 19:39:21 2017 Received: (at control) by debbugs.gnu.org; 14 Jul 2017 23:39:21 +0000 Received: from localhost ([127.0.0.1]:39393 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1dWAB7-0003r5-3i for submit@debbugs.gnu.org; Fri, 14 Jul 2017 19:39:21 -0400 Received: from eggs.gnu.org ([208.118.235.92]:33845) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1dWAB5-0003qr-Ci for control@debbugs.gnu.org; Fri, 14 Jul 2017 19:39:19 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1dWAAz-0003Xz-LS for control@debbugs.gnu.org; Fri, 14 Jul 2017 19:39:14 -0400 X-Spam-Checker-Version: SpamAssassin 3.3.2 (2011-06-06) on eggs.gnu.org X-Spam-Level: X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00,RP_MATCHES_RCVD autolearn=disabled version=3.3.2 Received: from fencepost.gnu.org ([2001:4830:134:3::e]:49369) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1dWAAz-0003Xt-Ig for control@debbugs.gnu.org; Fri, 14 Jul 2017 19:39:13 -0400 Received: from rgm by fencepost.gnu.org with local (Exim 4.82) (envelope-from ) id 1dWAAz-00016L-Cr for control@debbugs.gnu.org; Fri, 14 Jul 2017 19:39:13 -0400 Subject: control message for bug 27697 To: X-Mailer: mail (GNU Mailutils 2.99.98) Message-Id: From: Glenn Morris Date: Fri, 14 Jul 2017 19:39:13 -0400 X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 2001:4830:134:3::e X-Spam-Score: -5.0 (-----) X-Debbugs-Envelope-To: control X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -5.0 (-----) forcemerge 27254 27697 From unknown Thu Jun 19 14:32:23 2025 MIME-Version: 1.0 X-Mailer: MIME-tools 5.505 (Entity 5.505) X-Loop: help-debbugs@gnu.org From: help-debbugs@gnu.org (GNU bug Tracking System) To: vividsnow Subject: bug#27697: closed (Re: bug#27697: #27254 patch) Message-ID: References: <831sp8aldk.fsf@gnu.org> X-Gnu-PR-Message: they-closed 27697 X-Gnu-PR-Package: emacs Reply-To: 27697@debbugs.gnu.org Date: Sat, 22 Jul 2017 09:10:02 +0000 Content-Type: multipart/mixed; boundary="----------=_1500714602-28748-1" This is a multi-part message in MIME format... ------------=_1500714602-28748-1 Content-Disposition: inline Content-Transfer-Encoding: quoted-printable Content-Type: text/plain; charset="utf-8" Your bug report #27697: #27254 patch which was filed against the emacs package, has been closed. The explanation is attached below, along with your original report. If you require more details, please reply to 27697@debbugs.gnu.org. --=20 27697: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=3D27697 GNU Bug Tracking System Contact help-debbugs@gnu.org with problems ------------=_1500714602-28748-1 Content-Type: message/rfc822 Content-Disposition: inline Content-Transfer-Encoding: 7bit Received: (at 27697-done) by debbugs.gnu.org; 22 Jul 2017 09:09:44 +0000 Received: from localhost ([127.0.0.1]:51880 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1dYqPw-0007T9-AW for submit@debbugs.gnu.org; Sat, 22 Jul 2017 05:09:44 -0400 Received: from eggs.gnu.org ([208.118.235.92]:40448) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1dYqPu-0007Sw-1H for 27697-done@debbugs.gnu.org; Sat, 22 Jul 2017 05:09:42 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1dYqPl-0004cJ-Ji for 27697-done@debbugs.gnu.org; Sat, 22 Jul 2017 05:09:36 -0400 X-Spam-Checker-Version: SpamAssassin 3.3.2 (2011-06-06) on eggs.gnu.org X-Spam-Level: X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00,RP_MATCHES_RCVD autolearn=disabled version=3.3.2 Received: from fencepost.gnu.org ([2001:4830:134:3::e]:42462) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1dYqPl-0004cC-Gi; Sat, 22 Jul 2017 05:09:33 -0400 Received: from 84.94.185.246.cable.012.net.il ([84.94.185.246]:3395 helo=home-c4e4a596f7) by fencepost.gnu.org with esmtpsa (TLS1.2:RSA_AES_256_CBC_SHA1:256) (Exim 4.82) (envelope-from ) id 1dYqPk-0003rS-Um; Sat, 22 Jul 2017 05:09:33 -0400 Date: Sat, 22 Jul 2017 12:09:27 +0300 Message-Id: <831sp8aldk.fsf@gnu.org> From: Eli Zaretskii To: vividsnow In-reply-to: (message from vividsnow on Sat, 15 Jul 2017 02:13:52 +0300) Subject: Re: bug#27697: #27254 patch References: X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 2001:4830:134:3::e X-Spam-Score: -7.8 (-------) X-Debbugs-Envelope-To: 27697-done Cc: 27697-done@debbugs.gnu.org X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Reply-To: Eli Zaretskii Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -7.8 (-------) > From: vividsnow > Date: Sat, 15 Jul 2017 02:13:52 +0300 > > diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el > index c0f1aaf39d..c69eca2241 100644 > --- a/lisp/progmodes/cperl-mode.el > +++ b/lisp/progmodes/cperl-mode.el > @@ -3734,7 +3734,7 @@ the sections using `cperl-pod-head-face', `cperl-pod-face', > "\\(\\`\n?\\|^\n\\)=" ; POD > "\\|" > ;; One extra () before this: > - "<<" ; HERE-DOC > + "<<~?" ; HERE-DOC > "\\(" ; 1 + 1 > ;; First variant "BLAH" or just ``. > "[ \t]*" ; Yes, whitespace is allowed! > @@ -4000,7 +4000,7 @@ the sections using `cperl-pod-head-face', `cperl-pod-face', > (setq b (point)) > ;; We do not search to max, since we may be called from > ;; some hook of fontification, and max is random > - (or (and (re-search-forward (concat "^" qtag "$") > + (or (and (re-search-forward (concat "^[ \t]*" qtag "$") > stop-point 'toend) > ;;;(eq (following-char) ?\n) ; XXXX WHY??? > ) Thanks, pushed. ------------=_1500714602-28748-1 Content-Type: message/rfc822 Content-Disposition: inline Content-Transfer-Encoding: 7bit Received: (at submit) by debbugs.gnu.org; 14 Jul 2017 23:31:18 +0000 Received: from localhost ([127.0.0.1]:39375 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1dWA3K-0003eD-0O for submit@debbugs.gnu.org; Fri, 14 Jul 2017 19:31:18 -0400 Received: from eggs.gnu.org ([208.118.235.92]:58507) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1dW9mi-0003ED-SV for submit@debbugs.gnu.org; Fri, 14 Jul 2017 19:14:09 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1dW9mc-0002JD-PE for submit@debbugs.gnu.org; Fri, 14 Jul 2017 19:14:03 -0400 X-Spam-Checker-Version: SpamAssassin 3.3.2 (2011-06-06) on eggs.gnu.org X-Spam-Level: X-Spam-Status: No, score=0.0 required=5.0 tests=BAYES_40,FREEMAIL_FROM, T_DKIM_INVALID autolearn=disabled version=3.3.2 Received: from lists.gnu.org ([2001:4830:134:3::11]:49180) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1dW9mc-0002J7-Lc for submit@debbugs.gnu.org; Fri, 14 Jul 2017 19:14:02 -0400 Received: from eggs.gnu.org ([2001:4830:134:3::10]:49475) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1dW9mb-0001Pu-L5 for bug-gnu-emacs@gnu.org; Fri, 14 Jul 2017 19:14:02 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1dW9mY-0002IT-Gu for bug-gnu-emacs@gnu.org; Fri, 14 Jul 2017 19:14:01 -0400 Received: from mail-lf0-x22e.google.com ([2a00:1450:4010:c07::22e]:35528) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1dW9mY-0002IK-8y for bug-gnu-emacs@gnu.org; Fri, 14 Jul 2017 19:13:58 -0400 Received: by mail-lf0-x22e.google.com with SMTP id b207so60922662lfg.2 for ; Fri, 14 Jul 2017 16:13:56 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=to:from:subject:message-id:date:user-agent:mime-version :content-language; bh=jI+hxviLNi0RnjClzTiqqfoKGgx9oT4aYAjOPuoSQek=; b=JgwlSNgtjXGBSe0nhH1J510/fkVajsyTOf7Cfo8WMQyGeNFj7SnEPohEsvMFWdeCva Oyi0B8ZC6rJ5LtkH6MURwUqr8wmPr034xCwxOvk+U1N6REZ41bon6IEoX3u/jwEUEDg2 BfFlhTt2iKaUD+qYIQdkzTzjF5MUjQgrxW+LrLTKyxloaadsOysVOE8RNGo7zLppmuWV mVhCPqXF0DZU5IiYVGs/lmC79fBZJBz5VE0XS8zM9/JZGtaQxbkNWYFJQQgdF1OVYhap 5EoNZKxnFiMq3JrhNJa7OFNvbDjs5uD+SFebfyn2FYn9XUVIlQ0IKF/4Z+Yqqs8zq2sD s6vw== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:to:from:subject:message-id:date:user-agent :mime-version:content-language; bh=jI+hxviLNi0RnjClzTiqqfoKGgx9oT4aYAjOPuoSQek=; b=pcSPiaxUnhfsAdifAAR0LxzycGZNjML5YITiI46JHa2U8DCIUAphC8H2eILB7Lr+Pb nmtgiDxSO+0IjZ9HWZG8RW4RPBwj9s5cLBIHZXz3ZcD5kIOWG36qWbdY+cAyvDvcmE5f qIYhUimmGtG5XN9/egz7daglwzeCtQWVzcQmgiksz9bBbkIPi3d1HqcPU938o/PuPOxY 8VJTt9rghjR8ALPP0nkQ8NeyMwob8PYryfPhwyvI12jPwtrkuD57BlE5tI5FM/7dR6Tp 24Hf9wWxeDwfojcSKfCHjiyWVNiVdXqpA41JdUkJgCy1Pk1Xddfz0k1MTb1GSPus1o2N ZGiA== X-Gm-Message-State: AIVw110ypobzQFzmHCz38rNky4AU/K3TCy7sZ+Hd6TolBIyyRkTunole 8EIJ+Wu05DshyzvEOvc= X-Received: by 10.25.15.74 with SMTP id e71mr3300213lfi.7.1500074035153; Fri, 14 Jul 2017 16:13:55 -0700 (PDT) Received: from [0.0.0.0] ([91.218.231.35]) by smtp.gmail.com with ESMTPSA id b123sm2261757lfb.22.2017.07.14.16.13.52 for (version=TLS1_2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128); Fri, 14 Jul 2017 16:13:53 -0700 (PDT) To: bug-gnu-emacs@gnu.org From: vividsnow Subject: #27254 patch Message-ID: Date: Sat, 15 Jul 2017 02:13:52 +0300 User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:52.0) Gecko/20100101 Thunderbird/52.2.1 MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="------------6700B9627BA3BDA2EAD36014" Content-Language: en-US X-detected-operating-system: by eggs.gnu.org: Genre and OS details not recognized. X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x X-Received-From: 2001:4830:134:3::11 X-Spam-Score: -4.0 (----) X-Debbugs-Envelope-To: submit X-Mailman-Approved-At: Fri, 14 Jul 2017 19:31:17 -0400 X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -4.0 (----) This is a multi-part message in MIME format. --------------6700B9627BA3BDA2EAD36014 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: 7bit --------------6700B9627BA3BDA2EAD36014 Content-Type: text/x-patch; name="cperl-indented-heredocs.diff" Content-Transfer-Encoding: 7bit Content-Disposition: attachment; filename="cperl-indented-heredocs.diff" diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el index c0f1aaf39d..c69eca2241 100644 --- a/lisp/progmodes/cperl-mode.el +++ b/lisp/progmodes/cperl-mode.el @@ -3734,7 +3734,7 @@ the sections using `cperl-pod-head-face', `cperl-pod-face', "\\(\\`\n?\\|^\n\\)=" ; POD "\\|" ;; One extra () before this: - "<<" ; HERE-DOC + "<<~?" ; HERE-DOC "\\(" ; 1 + 1 ;; First variant "BLAH" or just ``. "[ \t]*" ; Yes, whitespace is allowed! @@ -4000,7 +4000,7 @@ the sections using `cperl-pod-head-face', `cperl-pod-face', (setq b (point)) ;; We do not search to max, since we may be called from ;; some hook of fontification, and max is random - (or (and (re-search-forward (concat "^" qtag "$") + (or (and (re-search-forward (concat "^[ \t]*" qtag "$") stop-point 'toend) ;;;(eq (following-char) ?\n) ; XXXX WHY??? ) --------------6700B9627BA3BDA2EAD36014-- ------------=_1500714602-28748-1-- From unknown Thu Jun 19 14:32:23 2025 MIME-Version: 1.0 X-Mailer: MIME-tools 5.505 (Entity 5.505) X-Loop: help-debbugs@gnu.org From: help-debbugs@gnu.org (GNU bug Tracking System) To: root@opow.pw Subject: bug#27254: closed (Re: bug#27697: #27254 patch) Message-ID: References: <831sp8aldk.fsf@gnu.org> <87fufeohiq.fsf@opow.pw> X-Gnu-PR-Message: they-closed 27254 X-Gnu-PR-Package: emacs Reply-To: 27254@debbugs.gnu.org Date: Sat, 22 Jul 2017 09:10:02 +0000 Content-Type: multipart/mixed; boundary="----------=_1500714602-28748-3" This is a multi-part message in MIME format... ------------=_1500714602-28748-3 Content-Disposition: inline Content-Transfer-Encoding: quoted-printable Content-Type: text/plain; charset="utf-8" Your bug report #27697: 24.5; support indented here-docs in cperl-mode which was filed against the emacs package, has been closed. The explanation is attached below, along with your original report. If you require more details, please reply to 27254@debbugs.gnu.org. --=20 27697: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=3D27697 GNU Bug Tracking System Contact help-debbugs@gnu.org with problems ------------=_1500714602-28748-3 Content-Type: message/rfc822 Content-Disposition: inline Content-Transfer-Encoding: 7bit Received: (at 27697-done) by debbugs.gnu.org; 22 Jul 2017 09:09:44 +0000 Received: from localhost ([127.0.0.1]:51880 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1dYqPw-0007T9-AW for submit@debbugs.gnu.org; Sat, 22 Jul 2017 05:09:44 -0400 Received: from eggs.gnu.org ([208.118.235.92]:40448) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1dYqPu-0007Sw-1H for 27697-done@debbugs.gnu.org; Sat, 22 Jul 2017 05:09:42 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1dYqPl-0004cJ-Ji for 27697-done@debbugs.gnu.org; Sat, 22 Jul 2017 05:09:36 -0400 X-Spam-Checker-Version: SpamAssassin 3.3.2 (2011-06-06) on eggs.gnu.org X-Spam-Level: X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00,RP_MATCHES_RCVD autolearn=disabled version=3.3.2 Received: from fencepost.gnu.org ([2001:4830:134:3::e]:42462) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1dYqPl-0004cC-Gi; Sat, 22 Jul 2017 05:09:33 -0400 Received: from 84.94.185.246.cable.012.net.il ([84.94.185.246]:3395 helo=home-c4e4a596f7) by fencepost.gnu.org with esmtpsa (TLS1.2:RSA_AES_256_CBC_SHA1:256) (Exim 4.82) (envelope-from ) id 1dYqPk-0003rS-Um; Sat, 22 Jul 2017 05:09:33 -0400 Date: Sat, 22 Jul 2017 12:09:27 +0300 Message-Id: <831sp8aldk.fsf@gnu.org> From: Eli Zaretskii To: vividsnow In-reply-to: (message from vividsnow on Sat, 15 Jul 2017 02:13:52 +0300) Subject: Re: bug#27697: #27254 patch References: X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 2001:4830:134:3::e X-Spam-Score: -7.8 (-------) X-Debbugs-Envelope-To: 27697-done Cc: 27697-done@debbugs.gnu.org X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Reply-To: Eli Zaretskii Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -7.8 (-------) > From: vividsnow > Date: Sat, 15 Jul 2017 02:13:52 +0300 > > diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el > index c0f1aaf39d..c69eca2241 100644 > --- a/lisp/progmodes/cperl-mode.el > +++ b/lisp/progmodes/cperl-mode.el > @@ -3734,7 +3734,7 @@ the sections using `cperl-pod-head-face', `cperl-pod-face', > "\\(\\`\n?\\|^\n\\)=" ; POD > "\\|" > ;; One extra () before this: > - "<<" ; HERE-DOC > + "<<~?" ; HERE-DOC > "\\(" ; 1 + 1 > ;; First variant "BLAH" or just ``. > "[ \t]*" ; Yes, whitespace is allowed! > @@ -4000,7 +4000,7 @@ the sections using `cperl-pod-head-face', `cperl-pod-face', > (setq b (point)) > ;; We do not search to max, since we may be called from > ;; some hook of fontification, and max is random > - (or (and (re-search-forward (concat "^" qtag "$") > + (or (and (re-search-forward (concat "^[ \t]*" qtag "$") > stop-point 'toend) > ;;;(eq (following-char) ?\n) ; XXXX WHY??? > ) Thanks, pushed. ------------=_1500714602-28748-3 Content-Type: message/rfc822 Content-Disposition: inline Content-Transfer-Encoding: 7bit Received: (at submit) by debbugs.gnu.org; 5 Jun 2017 15:34:05 +0000 Received: from localhost ([127.0.0.1]:57759 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1dHu16-00020A-TG for submit@debbugs.gnu.org; Mon, 05 Jun 2017 11:34:05 -0400 Received: from eggs.gnu.org ([208.118.235.92]:51113) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1dHpFd-0006Gp-RE for submit@debbugs.gnu.org; Mon, 05 Jun 2017 06:28:46 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1dHpFX-0006Bz-Bi for submit@debbugs.gnu.org; Mon, 05 Jun 2017 06:28:40 -0400 X-Spam-Checker-Version: SpamAssassin 3.3.2 (2011-06-06) on eggs.gnu.org X-Spam-Level: X-Spam-Status: No, score=0.8 required=5.0 tests=BAYES_50,T_DKIM_INVALID autolearn=disabled version=3.3.2 Received: from lists.gnu.org ([2001:4830:134:3::11]:44949) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1dHpFX-0006Bh-8N for submit@debbugs.gnu.org; Mon, 05 Jun 2017 06:28:39 -0400 Received: from eggs.gnu.org ([2001:4830:134:3::10]:42077) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1dHpFU-0006wi-JQ for bug-gnu-emacs@gnu.org; Mon, 05 Jun 2017 06:28:38 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1dHpFQ-00067I-LD for bug-gnu-emacs@gnu.org; Mon, 05 Jun 2017 06:28:36 -0400 Received: from opow.pw ([93.170.169.42]:55132) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1dHpFQ-00066R-B7 for bug-gnu-emacs@gnu.org; Mon, 05 Jun 2017 06:28:32 -0400 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=opow.pw; s=1001; h=Content-Type:MIME-Version:Message-ID:Date:Subject:To:From:Sender: Reply-To:Cc:Content-Transfer-Encoding:Content-ID:Content-Description: Resent-Date:Resent-From:Resent-Sender:Resent-To:Resent-Cc:Resent-Message-ID: In-Reply-To:References:List-Id:List-Help:List-Unsubscribe:List-Subscribe: List-Post:List-Owner:List-Archive; bh=34ciidI6EEV6gFlT3GXWu+SNNp6RAwzSHR3fyydStJI=; b=jpmLeCHrCpSOp9hdA+azI/A7CR Fe/PSnSzFgdDYW5KX+wh88x/2Afw5BdeCBHWLAAV/VR6DvrEVtFFCJattv07GxQ14NtbXuAFw7A3/ gM0q9ts/bu1J1z0rlcgf4RvLgPoKgqnHoaW9bwcGxCzPu5ZULEmcmBPCC7Yh7fLp2tVw=; Received: from egor by opow.pw with local (Exim 4.89) (envelope-from ) id 1dHpFN-0002az-Nc for bug-gnu-emacs@gnu.org; Mon, 05 Jun 2017 12:28:29 +0200 From: root@opow.pw To: bug-gnu-emacs@gnu.org Subject: 24.5; support indented here-docs in cperl-mode Date: Mon, 05 Jun 2017 12:28:29 +0200 Message-ID: <87fufeohiq.fsf@opow.pw> MIME-Version: 1.0 Content-Type: text/plain X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] [fuzzy] X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x X-Received-From: 2001:4830:134:3::11 X-Spam-Score: -4.1 (----) X-Debbugs-Envelope-To: submit X-Mailman-Approved-At: Mon, 05 Jun 2017 11:34:03 -0400 X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -4.1 (----) Perl 5.26 got new syntax feature: https://metacpan.org/pod/distribution/perl/pod/perldelta.pod#Indented-Here-documents It will very convenient to support it in cpel-mode In GNU Emacs 24.5.1 (x86_64-pc-linux-gnu, GTK+ Version 3.22.12) of 2017-04-29 on trouble, modified by Debian System Description: Debian GNU/Linux 9.0 (stretch) Configured using: `configure --build x86_64-linux-gnu --prefix=/usr --sharedstatedir=/var/lib --libexecdir=/usr/lib --localstatedir=/var/lib --infodir=/usr/share/info --mandir=/usr/share/man --with-pop=yes --enable-locallisppath=/etc/emacs24:/etc/emacs:/usr/local/share/emacs/24.5/site-lisp:/usr/local/share/emacs/site-lisp:/usr/share/emacs/24.5/site-lisp:/usr/share/emacs/site-lisp --without-gnutls --build x86_64-linux-gnu --prefix=/usr --sharedstatedir=/var/lib --libexecdir=/usr/lib --localstatedir=/var/lib --infodir=/usr/share/info --mandir=/usr/share/man --with-pop=yes --enable-locallisppath=/etc/emacs24:/etc/emacs:/usr/local/share/emacs/24.5/site-lisp:/usr/local/share/emacs/site-lisp:/usr/share/emacs/24.5/site-lisp:/usr/share/emacs/site-lisp --without-gnutls --with-x=yes --with-x-toolkit=gtk3 --with-toolkit-scroll-bars 'CFLAGS=-g -O2 -fdebug-prefix-map=/build/emacs24-QCkOdu/emacs24-24.5+1=. -fstack-protector-strong -Wformat -Werror=format-security -Wall -fno-PIE' 'CPPFLAGS=-Wdate-time -D_FORTIFY_SOURCE=2' 'LDFLAGS=-Wl,-z,relro -no-pie'' Important settings: value of $LANG: en_US.UTF-8 locale-coding-system: utf-8-unix Major mode: Lisp Interaction Minor modes in effect: tooltip-mode: t electric-indent-mode: t mouse-wheel-mode: t tool-bar-mode: t menu-bar-mode: t file-name-shadow-mode: t global-font-lock-mode: t font-lock-mode: t auto-composition-mode: t auto-encryption-mode: t auto-compression-mode: t line-number-mode: t transient-mark-mode: t Recent messages: Loading term/xterm...done For information about GNU Emacs and the GNU system, type C-h C-a. user-error: Beginning of history; no preceding item completing-read-default: Command attempted to use minibuffer while in minibuffer Quit delete-backward-char: Text is read-only Load-path shadows: None found. Features: (shadow sort gnus-util mail-extr emacsbug message format-spec rfc822 mml easymenu mml-sec mm-decode mm-bodies mm-encode mail-parse rfc2231 mailabbrev gmm-utils mailheader sendmail rfc2047 rfc2045 ietf-drums mm-util help-fns mail-prsvr mail-utils xterm time-date tooltip electric uniquify ediff-hook vc-hooks lisp-float-type mwheel x-win x-dnd tool-bar dnd fontset image regexp-opt fringe tabulated-list newcomment lisp-mode prog-mode register page menu-bar rfn-eshadow timer select scroll-bar mouse jit-lock font-lock syntax facemenu font-core frame cham georgian utf-8-lang misc-lang vietnamese tibetan thai tai-viet lao korean japanese hebrew greek romanian slovak czech european ethiopic indian cyrillic chinese case-table epa-hook jka-cmpr-hook help simple abbrev minibuffer nadvice loaddefs button faces cus-face macroexp files text-properties overlay sha1 md5 base64 format env code-pages mule custom widget hashtable-print-readable backquote make-network-process dbusbind gfilenotify dynamic-setting system-font-setting font-render-setting move-toolbar gtk x-toolkit x multi-tty emacs) Memory information: ((conses 16 73484 6070) (symbols 48 17628 0) (miscs 40 31 138) (strings 32 8979 4940) (string-bytes 1 245182) (vectors 16 7036) (vector-slots 8 341241 33801) (floats 8 65 287) (intervals 56 211 16) (buffers 960 11)) ------------=_1500714602-28748-3--