[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 8febca8: Fix highlighting in cperl-mode for "for /regex/"
From: |
Lars Ingebrigtsen |
Subject: |
master 8febca8: Fix highlighting in cperl-mode for "for /regex/" |
Date: |
Thu, 24 Jun 2021 12:15:15 -0400 (EDT) |
branch: master
commit 8febca87c34b4d5810fc45ecba96a8260a4cc06d
Author: E. Choroba <choroba@matfyz.cz>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
Fix highlighting in cperl-mode for "for /regex/"
* lisp/progmodes/cperl-mode.el (cperl-find-pods-heres): Fix
highlighting of regexp in "print for /./;" (bug#49192).
---
lisp/progmodes/cperl-mode.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el
index fa384bc..3370df6 100644
--- a/lisp/progmodes/cperl-mode.el
+++ b/lisp/progmodes/cperl-mode.el
@@ -3981,7 +3981,7 @@ the sections using `cperl-pod-head-face',
`cperl-pod-face',
(not (memq (preceding-char)
'(?$ ?@ ?& ?%)))
(looking-at
-
"\\(while\\|if\\|unless\\|until\\|and\\|or\\|not\\|xor\\|split\\|grep\\|map\\|print\\|say\\|return\\)\\>"))))
+
"\\(while\\|if\\|unless\\|until\\|for\\(each\\)?\\|and\\|or\\|not\\|xor\\|split\\|grep\\|map\\|print\\|say\\|return\\)\\>"))))
(and (eq (preceding-char) ?.)
(eq (char-after (- (point) 2)) ?.))
(bobp))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 8febca8: Fix highlighting in cperl-mode for "for /regex/",
Lars Ingebrigtsen <=