GNU bug report logs - #27697
#27254 patch

Previous Next

Full log

Message #12 received at 27697-done <at> debbugs.gnu.org (full text, mbox):

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.

Previous Next

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