From: E. Choroba <choroba@matfyz.cz>
Date: Fri, 25 Dec 2020 06:02:01 +0000 (+0100)
Subject: cperl-mode: Correctly syntax highlight index/value array slices
X-Git-Tag: emacs-28.0.90~4581
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=290ee3474d8c7334e12baef0f922f9622a045cd5;p=emacs.git

cperl-mode: Correctly syntax highlight index/value array slices

* lisp/progmodes/cperl-mode.el (cperl-init-faces): %array[0, 1]
should use the array face, not the hash one (bug#45373).

Copyright-paperwork-exempt: yes
---

diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el
index 87542ea133c..2fc2d14ee6a 100644
--- a/lisp/progmodes/cperl-mode.el
+++ b/lisp/progmodes/cperl-mode.el
@@ -5666,7 +5666,7 @@ indentation and initial hashes.  Behaves usually outside of comment."
 		  'cperl-hash-face
 		'cperl-array-face)
 	      nil)			; arrays and hashes
-	     ("\\(\\([$@]+\\)[a-zA-Z_:][a-zA-Z0-9_:]*\\)[ \t]*\\([[{]\\)"
+	     ("\\(\\([$@%]+\\)[a-zA-Z_:][a-zA-Z0-9_:]*\\)[ \t]*\\([[{]\\)"
 	      1
 	      (if (= (- (match-end 2) (match-beginning 2)) 1)
 		  (if (eq (char-after (match-beginning 3)) ?{)