Mercurial > emacs
comparison lisp/progmodes/perl-mode.el @ 79514:4ad6fcfba45b
(perl-font-lock-syntactic-keywords): Don't match "sub { (...) ... }".
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Fri, 30 Nov 2007 19:21:33 +0000 |
| parents | ccfc1f1f4817 |
| children | f81c00b9c0ff 53108e6cea98 |
comparison
equal
deleted
inserted
replaced
| 79513:793a7a37a103 | 79514:4ad6fcfba45b |
|---|---|
| 264 ;; Handle funny names like $DB'stop. | 264 ;; Handle funny names like $DB'stop. |
| 265 ("\\$ ?{?^?[_a-zA-Z][_a-zA-Z0-9]*\\('\\)[_a-zA-Z]" (1 "_")) | 265 ("\\$ ?{?^?[_a-zA-Z][_a-zA-Z0-9]*\\('\\)[_a-zA-Z]" (1 "_")) |
| 266 ;; format statements | 266 ;; format statements |
| 267 ("^[ \t]*format.*=[ \t]*\\(\n\\)" (1 '(7))) | 267 ("^[ \t]*format.*=[ \t]*\\(\n\\)" (1 '(7))) |
| 268 ;; Funny things in sub arg specifications like `sub myfunc ($$)' | 268 ;; Funny things in sub arg specifications like `sub myfunc ($$)' |
| 269 ("\\<sub\\s-+\\S-+\\s-*(\\([^)]+\\))" 1 '(1)) | 269 ;; Be careful not to match "sub { (...) ... }". |
| 270 ("\\<sub[[:space:]]+[^{}[:punct:][:space:]]+[[:space:]]*(\\([^)]+\\))" | |
| 271 1 '(1)) | |
| 270 ;; Regexp and funny quotes. | 272 ;; Regexp and funny quotes. |
| 271 ("\\(?:[?:.,;=!~({[]\\|\\(^\\)\\)[ \t\n]*\\(/\\)" | 273 ("\\(?:[?:.,;=!~({[]\\|\\(^\\)\\)[ \t\n]*\\(/\\)" |
| 272 (2 (if (and (match-end 1) | 274 (2 (if (and (match-end 1) |
| 273 (save-excursion | 275 (save-excursion |
| 274 (goto-char (match-end 1)) | 276 (goto-char (match-end 1)) |