From debbugs-submit-bounces@debbugs.gnu.org Fri Jul 14 19:31:18 2017 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-- 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 debbugs-submit-bounces@debbugs.gnu.org Sat Jul 22 05:09:44 2017 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. From unknown Thu Jun 19 14:12:43 2025 Received: (at fakecontrol) by fakecontrolmessage; To: internal_control@debbugs.gnu.org From: Debbugs Internal Request Subject: Internal Control Message-Id: bug archived. Date: Sat, 19 Aug 2017 11:24:05 +0000 User-Agent: Fakemail v42.6.9 # This is a fake control message. # # The action: # bug archived. thanks # This fakemail brought to you by your local debbugs # administrator