[debbugs-tracker] bug#27697: closed (#27254 patch)

[GNU bug Tracking System]

Your message dated Sat, 22 Jul 2017 12:09:27 +0300
with message-id <address@hidden>
and subject line Re: bug#27697: #27254 patch
has caused the debbugs.gnu.org bug report #27697,
regarding #27254 patch
to be marked as done.

(If you believe you have received this mail in error, please contact
address@hidden)


-- 
27697: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=27697
GNU Bug Tracking System
Contact address@hidden with problems

--- Begin Message --- Subject: #27254 patch 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

cperl-indented-heredocs.diff
Description: Text Data

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