GNU bug report logs - #27697
#27254 patch

Previous Next

Package: emacs;

Reported by: vividsnow <vividsnow <at> gmail.com>

Date: Fri, 14 Jul 2017 23:32:01 UTC

Severity: minor

Merged with 27254

Found in version 24.5

Done: Eli Zaretskii <eliz <at> gnu.org>

Bug is archived. No further changes may be made.

Full log


View this message in rfc822 format

From: help-debbugs <at> gnu.org (GNU bug Tracking System)
To: vividsnow <vividsnow <at> gmail.com>
Subject: bug#27697: closed (Re: bug#27697: #27254 patch)
Date: Sat, 22 Jul 2017 09:10:02 +0000
[Message part 1 (text/plain, inline)]
Your bug report

#27697: #27254 patch

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 27697 <at> debbugs.gnu.org.

-- 
27697: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=27697
GNU Bug Tracking System
Contact help-debbugs <at> gnu.org with problems
[Message part 2 (message/rfc822, inline)]
From: Eli Zaretskii <eliz <at> gnu.org>
To: vividsnow <vividsnow <at> gmail.com>
Cc: 27697-done <at> debbugs.gnu.org
Subject: Re: bug#27697: #27254 patch
Date: Sat, 22 Jul 2017 12:09:27 +0300
> From: vividsnow <vividsnow <at> gmail.com>
> 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.

[Message part 3 (message/rfc822, inline)]
From: vividsnow <vividsnow <at> gmail.com>
To: bug-gnu-emacs <at> gnu.org
Subject: #27254 patch
Date: Sat, 15 Jul 2017 02:13:52 +0300
[Message part 4 (text/plain, inline)]

[cperl-indented-heredocs.diff (text/x-patch, attachment)]

This bug report was last modified 7 years and 303 days ago.

Previous Next


GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.