From 8febca87c34b4d5810fc45ecba96a8260a4cc06d Mon Sep 17 00:00:00 2001 From: "E. Choroba" Date: Thu, 24 Jun 2021 18:15:07 +0200 Subject: [PATCH] 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 fa384bcad68..3370df64919 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)) -- 2.39.2