267 |
("\\<sub\\s-+\\S-+\\s-*(\\([^)]+\\))" 1 '(1)) |
("\\<sub\\s-+\\S-+\\s-*(\\([^)]+\\))" 1 '(1)) |
268 |
;; regexp and funny quotes |
;; regexp and funny quotes |
269 |
("[?:.,;=!~({[][ \t\n]*\\(/\\)" (1 '(7))) |
("[?:.,;=!~({[][ \t\n]*\\(/\\)" (1 '(7))) |
270 |
("[?:.,;=!~({[ \t\n]\\([msy]\\|q[qxrw]?\\|tr\\)\\>\\s-*\\([^])}> \n\t]\\)" |
("\\(^\\|[?:.,;=!~({[ \t]\\)\\([msy]\\|q[qxrw]?\\|tr\\)\\>\\s-*\\([^])}> \n\t]\\)" |
271 |
;; Nasty cases: |
;; Nasty cases: |
272 |
;; /foo/m $a->m $#m $m @m %m |
;; /foo/m $a->m $#m $m @m %m |
273 |
;; \s (appears often in regexps). |
;; \s (appears often in regexps). |
274 |
;; -s file |
;; -s file |
275 |
(2 (if (assoc (char-after (match-beginning 2)) |
(3 (if (assoc (char-after (match-beginning 3)) |
276 |
perl-quote-like-pairs) |
perl-quote-like-pairs) |
277 |
'(15) '(7)))) |
'(15) '(7)))) |
278 |
;; TODO: here-documents ("<<\\(\\sw\\|['\"]\\)") |
;; TODO: here-documents ("<<\\(\\sw\\|['\"]\\)") |