Subject: bug#27254: closed (Re: bug#27697: #27254 patch)

From: [email-masked] (GNU bug Tracking System)
Date: Sat, 22 Jul 2017 09:10:02 +0000

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 [email-masked].

-- 
27697: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=27697
GNU Bug Tracking System
Contact [email-masked] with problems

Subject: Re: bug#27697: #27254 patch
From: Eli Zaretskii <[email-masked]>
To: vividsnow <[email-masked]>
Cc: [email-masked]
Date: Sat, 22 Jul 2017 12:09:27 +0300
List-Id: <debbugs-submit.debbugs.gnu.org>

> From: vividsnow <[email-masked]>
> 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.

Subject: 24.5; support indented here-docs in cperl-mode
From: [email-masked]
To: [email-masked]
Date: Mon, 05 Jun 2017 12:28:29 +0200
List-Id: <debbugs-submit.debbugs.gnu.org>

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