Mercurial > emacs
changeset 93621:755f65f1ae15
(perl-font-lock-syntactic-keywords): Recognize `sub ($$)'.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Thu, 03 Apr 2008 22:10:44 +0000 |
| parents | dfdeba5ae4fd |
| children | 5d2b21aad9af |
| files | lisp/ChangeLog lisp/progmodes/perl-mode.el |
| diffstat | 2 files changed, 7 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu Apr 03 22:03:01 2008 +0000 +++ b/lisp/ChangeLog Thu Apr 03 22:10:44 2008 +0000 @@ -1,3 +1,8 @@ +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
--- a/lisp/progmodes/perl-mode.el Thu Apr 03 22:03:01 2008 +0000 +++ b/lisp/progmodes/perl-mode.el Thu Apr 03 22:10:44 2008 +0000 @@ -265,9 +265,9 @@ ("\\$ ?{?^?[_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]*\\(/\\)"