Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
3225dcaa
Commit
3225dcaa
authored
Nov 02, 2010
by
Stefan Monnier
Browse files
* lisp/progmodes/perl-mode.el (perl-syntax-propertize-function):
Handle __DATA__ and __END__.
parent
6ec9acb3
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
10 additions
and
0 deletions
+10
-0
lisp/ChangeLog
lisp/ChangeLog
+5
-0
lisp/progmodes/perl-mode.el
lisp/progmodes/perl-mode.el
+5
-0
No files found.
lisp/ChangeLog
View file @
3225dcaa
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
...
...
lisp/progmodes/perl-mode.el
View file @
3225dcaa
...
...
@@ -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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment