Commit 3225dcaa authored by Stefan Monnier's avatar Stefan Monnier
Browse files

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

Handle __DATA__ and __END__.
parent 6ec9acb3
2010-11-03 Stefan Monnier <monnier@iro.umontreal.ca>
* progmodes/perl-mode.el (perl-syntax-propertize-function):
Handle __DATA__ and __END__.
2010-11-02 Noah Friedman <friedman@splode.com>
 
* emacs-lisp/bytecomp.el (byte-recompile-file): If bytecomp-arg is
......
......@@ -274,6 +274,11 @@ The expansion is entirely correct because it uses the C preprocessor."
;; 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
......
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