Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
8bee1018
Commit
8bee1018
authored
May 23, 2003
by
Stefan Monnier
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(perl-font-lock-syntactic-keywords): Match more cases of /.../ patterns.
parent
b85a38e9
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
5 additions
and
4 deletions
+5
-4
lisp/progmodes/perl-mode.el
lisp/progmodes/perl-mode.el
+5
-4
No files found.
lisp/progmodes/perl-mode.el
View file @
8bee1018
...
...
@@ -257,19 +257,20 @@ The expansion is entirely correct because it uses the C preprocessor."
(
"\\$ ?{?^?[_a-zA-Z][_a-zA-Z0-9]*\\('\\)[_a-zA-Z]"
(
1
"_"
))
;; format statements
(
"^[ \t]*format.*=[ \t]*\\(\n\\)"
(
1
'
(
7
)))
;; TODO: here-documents ("<<\\(\\sw\\|['\"]\\)")
;; Funny things in sub arg specifications like `sub myfunc ($$)'
(
"\\<sub\\s-+\\S-+\\s-*(\\([^)]+\\))"
1
'
(
1
))
;; regexp and funny quotes
(
"[
;(=!~{
][ \t\n]*\\(/\\)"
(
1
'
(
7
)))
(
"[
;( =!~{
\t\n]\\([msy]\\|q[qxrw]?\\|tr\\)\\>\\s-*\\([^])}> \n\t]\\)"
(
"[
?:.,;=!~({[
][ \t\n]*\\(/\\)"
(
1
'
(
7
)))
(
"[
?:.,;=!~({[
\t\n]\\([msy]\\|q[qxrw]?\\|tr\\)\\>\\s-*\\([^])}> \n\t]\\)"
;; Nasty cases:
;; /foo/m $a->m $#m $m @m %m
;; \s (appears often in regexps).
;; -s file
(
2
(
if
(
assoc
(
char-after
(
match-beginning
2
))
perl-quote-like-pairs
)
'
(
15
)
'
(
7
))))))
'
(
15
)
'
(
7
))))
;; TODO: here-documents ("<<\\(\\sw\\|['\"]\\)")
))
(
defvar
perl-empty-syntax-table
(
let
((
st
(
copy-syntax-table
)))
...
...
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