From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 2 Apr 2014 19:50:05 +0000 (-0400)
Subject: * lisp/progmodes/perl-mode.el (perl-syntax-propertize-function): Add "foreach"
X-Git-Url: http://git.hcoop.net/bpt/emacs.git/commitdiff_plain/8a7fd442120979132a5c7beb0ac910ea3fae165d?hp=66f50b12dee4e8eff49dcc07ebbe6dcbb69ccd1e

* lisp/progmodes/perl-mode.el (perl-syntax-propertize-function): Add "foreach"
and "for" statement modifiers introducing expressions.

Fixes: debbugs:17116
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a2322a026e..740d95c29e 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  <rgm@gnu.org>
 
diff --git a/lisp/progmodes/perl-mode.el b/lisp/progmodes/perl-mode.el
index 3c7571e037..cf9347d0e6 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.