Commit 8a7fd442 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

* lisp/progmodes/perl-mode.el (perl-syntax-propertize-function): Add "foreach"

and "for" statement modifiers introducing expressions.

Fixes: debbugs:17116
parent 66f50b12
...@@ -2,6 +2,8 @@ ...@@ -2,6 +2,8 @@
   
* progmodes/perl-mode.el (perl-indent-new-calculate): * progmodes/perl-mode.el (perl-indent-new-calculate):
Handle forward-sexp failure (bug#16985). 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> 2014-04-02 Glenn Morris <rgm@gnu.org>
   
......
...@@ -276,7 +276,7 @@ ...@@ -276,7 +276,7 @@
;; perl-font-lock-special-syntactic-constructs. ;; perl-font-lock-special-syntactic-constructs.
((concat "\\(?:\\(?:^\\|[^$@&%[:word:]]\\)" ((concat "\\(?:\\(?:^\\|[^$@&%[:word:]]\\)"
(regexp-opt '("split" "if" "unless" "until" "while" "split" (regexp-opt '("split" "if" "unless" "until" "while" "split"
"grep" "map" "not" "or" "and")) "grep" "map" "not" "or" "and" "for" "foreach"))
"\\|[?:.,;=!~({[]\\|\\(^\\)\\)[ \t\n]*\\(/\\)") "\\|[?:.,;=!~({[]\\|\\(^\\)\\)[ \t\n]*\\(/\\)")
(2 (ignore (2 (ignore
(if (and (match-end 1) ; / at BOL. (if (and (match-end 1) ; / at BOL.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment