[Emacs-diffs] emacs-24 r116896: * lisp/progmodes/perl-mode.el (perl-syntax-propertize-function): Add "foreach"

[Stefan Monnier]

------------------------------------------------------------
revno: 116896
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=17116
committer: Stefan Monnier <address@hidden>
branch nick: emacs-24
timestamp: Wed 2014-04-02 15:50:05 -0400
message:
  * lisp/progmodes/perl-mode.el (perl-syntax-propertize-function): Add "foreach"
  and "for" statement modifiers introducing expressions.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/progmodes/perl-mode.el    perlmode.el-20091113204419-o5vbwnq5f7feedwu-402

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-04-02 19:47:50 +0000
+++ b/lisp/ChangeLog    2014-04-02 19:50:05 +0000
@@ -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  <address@hidden>
 

=== modified file 'lisp/progmodes/perl-mode.el'
--- a/lisp/progmodes/perl-mode.el       2014-04-02 19:47:50 +0000
+++ b/lisp/progmodes/perl-mode.el       2014-04-02 19:50:05 +0000
@@ -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.