257 |
("\\$ ?{?^?[_a-zA-Z][_a-zA-Z0-9]*\\('\\)[_a-zA-Z]" (1 "_")) |
("\\$ ?{?^?[_a-zA-Z][_a-zA-Z0-9]*\\('\\)[_a-zA-Z]" (1 "_")) |
258 |
;; format statements |
;; format statements |
259 |
("^[ \t]*format.*=[ \t]*\\(\n\\)" (1 '(7))) |
("^[ \t]*format.*=[ \t]*\\(\n\\)" (1 '(7))) |
|
;; TODO: here-documents ("<<\\(\\sw\\|['\"]\\)") |
|
260 |
;; Funny things in sub arg specifications like `sub myfunc ($$)' |
;; Funny things in sub arg specifications like `sub myfunc ($$)' |
261 |
("\\<sub\\s-+\\S-+\\s-*(\\([^)]+\\))" 1 '(1)) |
("\\<sub\\s-+\\S-+\\s-*(\\([^)]+\\))" 1 '(1)) |
262 |
;; regexp and funny quotes |
;; regexp and funny quotes |
263 |
("[;(=!~{][ \t\n]*\\(/\\)" (1 '(7))) |
("[?:.,;=!~({[][ \t\n]*\\(/\\)" (1 '(7))) |
264 |
("[;( =!~{\t\n]\\([msy]\\|q[qxrw]?\\|tr\\)\\>\\s-*\\([^])}> \n\t]\\)" |
("[?:.,;=!~({[ \t\n]\\([msy]\\|q[qxrw]?\\|tr\\)\\>\\s-*\\([^])}> \n\t]\\)" |
265 |
;; Nasty cases: |
;; Nasty cases: |
266 |
;; /foo/m $a->m $#m $m @m %m |
;; /foo/m $a->m $#m $m @m %m |
267 |
;; \s (appears often in regexps). |
;; \s (appears often in regexps). |
268 |
;; -s file |
;; -s file |
269 |
(2 (if (assoc (char-after (match-beginning 2)) |
(2 (if (assoc (char-after (match-beginning 2)) |
270 |
perl-quote-like-pairs) |
perl-quote-like-pairs) |
271 |
'(15) '(7)))))) |
'(15) '(7)))) |
272 |
|
;; TODO: here-documents ("<<\\(\\sw\\|['\"]\\)") |
273 |
|
)) |
274 |
|
|
275 |
(defvar perl-empty-syntax-table |
(defvar perl-empty-syntax-table |
276 |
(let ((st (copy-syntax-table))) |
(let ((st (copy-syntax-table))) |