From: Harald Jörg <haj@posteo.de>
Date: Wed, 3 Nov 2021 14:04:10 +0000 (+0100)
Subject: ; cperl-mode.el: Fix one match-count in my commit 2021-09-14
X-Git-Tag: emacs-28.3-rc1~24
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ee9a9fbf0fff9031cf8eb544f5670906ef3c7bb2;p=emacs.git

; cperl-mode.el: Fix one match-count in my commit 2021-09-14

* lisp/progmodes/cperl-mode.el (cperl-init-faces): Matching group needs
to be adjusted according to the regexp change in my previous commit

(cherry picked from commit a25e91593d48a541b5940a2ed707ddfaef5c953f)
---

diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el
index eaedf987c5e..7d121cbf946 100644
--- a/lisp/progmodes/cperl-mode.el
+++ b/lisp/progmodes/cperl-mode.el
@@ -5946,7 +5946,7 @@ default function."
                                         (eval cperl--basic-identifier-rx)))
                    (0+ blank) "(")
 ;;	    '("\\<for\\(each\\)?\\([ \t]+\\(state\\|my\\|local\\|our\\)\\)?[ \t]*\\(\\$[a-zA-Z_][a-zA-Z_0-9]*\\)[ \t]*("
-	      4 font-lock-variable-name-face)
+	      1 font-lock-variable-name-face)
 	    ;; Avoid $!, and s!!, qq!! etc. when not fontifying syntactically
 	    '("\\(?:^\\|[^smywqrx$]\\)\\(!\\)" 1 font-lock-negation-char-face)
 	    '("\\[\\(\\^\\)" 1 font-lock-negation-char-face prepend)))