Commit 957e449e authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(perl-font-lock-syntactic-keywords): Recognize `sub ($$)'.

parent 7c655cf6
2008-04-03 Giuliano Procida <giuliano.procida@googlemail.com> (tiny change)
* progmodes/perl-mode.el (perl-font-lock-syntactic-keywords):
Recognize `sub ($$)'.
2008-04-03 Richard Sharman <rsharman@pobox.com>
 
* hilit-chg.el (highlight-changes-mode): Rename from
......
......@@ -265,9 +265,9 @@ 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)))
;; Funny things in sub arg specifications like `sub myfunc ($$)'
;; Funny things in `sub' arg-specs like `sub myfun ($)' or `sub ($)'.
;; Be careful not to match "sub { (...) ... }".
("\\<sub[[:space:]]+[^{}[:punct:][:space:]]+[[:space:]]*(\\([^)]+\\))"
("\\<sub\\(?:[[:space:]]+[^{}[:punct:][:space:]]+\\)?[[:space:]]*(\\([^)]+\\))"
1 '(1))
;; Regexp and funny quotes.
("\\(?:[?:.,;=!~({[]\\|\\(^\\)\\)[ \t\n]*\\(/\\)"
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment