--- Begin Message ---
|
Subject: |
24.5; support indented here-docs in cperl-mode |
|
Date: |
Mon, 05 Jun 2017 12:28:29 +0200 |
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))
--- End Message ---
--- Begin Message ---
|
Subject: |
Re: bug#27697: #27254 patch |
|
Date: |
Sat, 22 Jul 2017 12:09:27 +0300 |
> From: vividsnow <address@hidden>
> 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.
--- End Message ---