[Emacs-diffs] /srv/bzr/emacs/trunk r102226: * lisp/progmodes/perl-mode.el (perl-syntax-propertize-function):

[Stefan Monnier]

------------------------------------------------------------
revno: 102226
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Tue 2010-11-02 22:30:12 -0400
message:
  * lisp/progmodes/perl-mode.el (perl-syntax-propertize-function):
  Handle __DATA__ and __END__.
modified:
  lisp/ChangeLog
  lisp/progmodes/perl-mode.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-11-02 22:51:25 +0000
+++ b/lisp/ChangeLog    2010-11-03 02:30:12 +0000
@@ -1,3 +1,8 @@
+2010-11-03  Stefan Monnier  <address@hidden>
+
+       * progmodes/perl-mode.el (perl-syntax-propertize-function):
+       Handle __DATA__ and __END__.
+
 2010-11-02  Noah Friedman  <address@hidden>
 
        * emacs-lisp/bytecomp.el (byte-recompile-file): If bytecomp-arg is

=== modified file 'lisp/progmodes/perl-mode.el'
--- a/lisp/progmodes/perl-mode.el       2010-09-10 23:13:42 +0000
+++ b/lisp/progmodes/perl-mode.el       2010-11-03 02:30:12 +0000
@@ -274,6 +274,11 @@
       ;; Be careful not to match "sub { (...) ... }".
       
("\\<sub\\(?:[[:space:]]+[^{}[:punct:][:space:]]+\\)?[[:space:]]*(\\([^)]+\\))"
        (1 "."))
+      ;; Turn __DATA__ trailer into a comment.
+      ("^\\(_\\)_\\(?:DATA\\|END\\)__[ 
\t]*\\(?:\\(\n\\)#.-\\*-.*perl.*-\\*-\\|\n.*\\)"
+       (1 "< c") (2 "> c")
+       (0 (ignore (put-text-property (match-beginning 0) (match-end 0)
+                                     'syntax-multiline t))))
       ;; Regexp and funny quotes.  Distinguishing a / that starts a regexp
       ;; match from the division operator is ...interesting.
       ;; Basically, / is a regexp match if it's preceded by an infix operator