From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Fri, 7 Aug 2020 12:07:14 +0000 (+0200)
Subject: Fix fontification of %d in strings in cperl-mode
X-Git-Tag: emacs-28.0.90~6763
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d0ad6306727067936c9c8717dfc4e3aae5774902;p=emacs.git

Fix fontification of %d in strings in cperl-mode

* lisp/progmodes/cperl-mode.el (cperl-init-faces): Don't fontify
directives like %d in strings as hashes (bug#22867).
---

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