Subject: bug#27697: 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: #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 [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: #27254 patch
From: vividsnow <[email-masked]>
To: [email-masked]
Date: Sat, 15 Jul 2017 02:13:52 +0300
List-Id: <debbugs-submit.debbugs.gnu.org>

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