From 8a7fd442120979132a5c7beb0ac910ea3fae165d Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 2 Apr 2014 15:50:05 -0400 Subject: [PATCH] * lisp/progmodes/perl-mode.el (perl-syntax-propertize-function): Add "foreach" and "for" statement modifiers introducing expressions. Fixes: debbugs:17116 --- lisp/ChangeLog | 2 ++ lisp/progmodes/perl-mode.el | 2 +- 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a2322a026e3..740d95c29e1 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -2,6 +2,8 @@ * progmodes/perl-mode.el (perl-indent-new-calculate): Handle forward-sexp failure (bug#16985). + (perl-syntax-propertize-function): Add "foreach" and "for" statement + modifiers introducing expressions (bug#17116). 2014-04-02 Glenn Morris diff --git a/lisp/progmodes/perl-mode.el b/lisp/progmodes/perl-mode.el index 3c7571e037b..cf9347d0e6d 100644 --- a/lisp/progmodes/perl-mode.el +++ b/lisp/progmodes/perl-mode.el @@ -276,7 +276,7 @@ ;; perl-font-lock-special-syntactic-constructs. ((concat "\\(?:\\(?:^\\|[^$@&%[:word:]]\\)" (regexp-opt '("split" "if" "unless" "until" "while" "split" - "grep" "map" "not" "or" "and")) + "grep" "map" "not" "or" "and" "for" "foreach")) "\\|[?:.,;=!~({[]\\|\\(^\\)\\)[ \t\n]*\\(/\\)") (2 (ignore (if (and (match-end 1) ; / at BOL. -- 2.39.2