From unknown Sun Sep 07 16:50:55 2025 X-Loop: help-debbugs@gnu.org Subject: bug#27254: 24.5; support indented here-docs in cperl-mode Resent-From: root@opow.pw Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Mon, 05 Jun 2017 15:35:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 27254 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: To: 27254@debbugs.gnu.org X-Debbugs-Original-To: bug-gnu-emacs@gnu.org Received: via spool by submit@debbugs.gnu.org id=B.14966768457702 (code B ref -1); Mon, 05 Jun 2017 15:35:02 +0000 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 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-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)) From unknown Sun Sep 07 16:50:55 2025 X-Loop: help-debbugs@gnu.org Subject: bug#27254: patch Resent-From: vividsnow Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Fri, 14 Jul 2017 23:39:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 27254 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: To: 27254@debbugs.gnu.org Received: via spool by 27254-submit@debbugs.gnu.org id=B27254.150007551214726 (code B ref 27254); Fri, 14 Jul 2017 23:39:02 +0000 Received: (at 27254) by debbugs.gnu.org; 14 Jul 2017 23:38:32 +0000 Received: from localhost ([127.0.0.1]:39389 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1dWAAJ-0003pR-PH for submit@debbugs.gnu.org; Fri, 14 Jul 2017 19:38:31 -0400 Received: from mail-lf0-f52.google.com ([209.85.215.52]:36441) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1dWA97-0003nK-NO for 27254@debbugs.gnu.org; Fri, 14 Jul 2017 19:37:18 -0400 Received: by mail-lf0-f52.google.com with SMTP id h22so61030166lfk.3 for <27254@debbugs.gnu.org>; Fri, 14 Jul 2017 16:37:17 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=subject:references:to:from:message-id:date:user-agent:mime-version :in-reply-to:content-language; bh=1jgjApCqe3F26dC3K2UtffPS34CxFh3hJxMg1ZUJ91k=; b=mInnSbD+pNkp6/8BzuO89GlQJqQBxJ6RasHCd89if+auRtKJcp8P7ms10cXSwe5kjt SsmHz3lzN4Fl98/H/l5d6KkJSG2LipFJVTc6oYl4pGi5f0/yr/wTtfQRttKYG9MFG4zj 26M3/ISZTazK9xSahV9r/W7mbL+IHJfQwlgsYgRBH1FT1j3PBgP8l99Ra2jQZ1id7BDW Vp3ws0zRgTT4t21pXQ8TsIKbKiXKbxnmKa6NAWuAeN0S5+waojSM7KohV0oOfsq+UiJv kEweyMpRq5Wz79cwQhlx1+ZB8pcmw4uc74qibrqWW+NpHcCcOCL1z4fbc6n6czJs3e7u nFDA== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:subject:references:to:from:message-id:date :user-agent:mime-version:in-reply-to:content-language; bh=1jgjApCqe3F26dC3K2UtffPS34CxFh3hJxMg1ZUJ91k=; b=gWIDajlo64ZtM+11pljDI9tbSkpLf9ORux0JKb6aPGi2bXyvr9cNyZmk3Q77nYPozG DvmLK8kIyrkgCATk/hBAL4CWicAbmvzUfN8unCz1zoR6c/SeYzPW/0pz3yFjto+bODVJ MURFMzO9FcbZ4ZZJfjzSjT9hcZja1iPJgDgD/6XNFAXtrqqHLHKtOyYwcLKF15U/Y6u7 SkeET0mSBOI6JZGF1/wT3ymI2S6da4v32QJGNkcxB9upPryWxpGY4M3En+Gj+RBGln3f Z6ntYbX5IjUDRq6eWeMqfIiKN10aCYg/TIm7o/Bll45noE0ipt3ZFBeIIvHrXgaKWChJ ouHw== X-Gm-Message-State: AIVw110lf2y+M+WLB8UgGRautWMlfE35kTERKKt4ukGCT7YQpOwORwi+ 9M5jj84TVPFE5J7NJuo= X-Received: by 10.46.5.10 with SMTP id 10mr1703026ljf.3.1500075431365; Fri, 14 Jul 2017 16:37:11 -0700 (PDT) Received: from [0.0.0.0] ([91.218.231.35]) by smtp.gmail.com with ESMTPSA id m12sm2311475lfe.12.2017.07.14.16.37.10 for <27254@debbugs.gnu.org> (version=TLS1_2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128); Fri, 14 Jul 2017 16:37:10 -0700 (PDT) References: From: vividsnow X-Forwarded-Message-Id: Message-ID: <6fcc677d-f6ca-15ec-2789-9448a7ce04bf@gmail.com> Date: Sat, 15 Jul 2017 02:37:09 +0300 User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:52.0) Gecko/20100101 Thunderbird/52.2.1 MIME-Version: 1.0 In-Reply-To: Content-Type: multipart/mixed; boundary="------------55D3814835E253524F10B49F" Content-Language: en-US X-Spam-Score: 0.5 (/) X-Mailman-Approved-At: Fri, 14 Jul 2017 19:38:30 -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: 0.5 (/) This is a multi-part message in MIME format. --------------55D3814835E253524F10B49F Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: 7bit --------------55D3814835E253524F10B49F 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??? ) --------------55D3814835E253524F10B49F-- 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