Mercurial > emacs
diff lisp/progmodes/cperl-mode.el @ 90180:62afea0771d8
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-51
Merge from emacs--cvs-trunk--0
Patches applied:
* emacs--cvs-trunk--0 (patch 289-301)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 68)
- Update from CVS
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Thu, 12 May 2005 03:41:19 +0000 |
| parents | 08185296b491 7dbe52d92117 |
| children | f042e7c0fe20 |
line wrap: on
line diff
--- a/lisp/progmodes/cperl-mode.el Thu May 12 02:47:44 2005 +0000 +++ b/lisp/progmodes/cperl-mode.el Thu May 12 03:41:19 2005 +0000 @@ -4751,7 +4751,10 @@ (t '("^[ \t{}]*\\(my\\|local\\our\\)[ \t]*\\(([ \t]*\\)?\\([$@%*][a-zA-Z0-9_:]+\\)" 3 font-lock-variable-name-face))) '("\\<for\\(each\\)?\\([ \t]+\\(my\\|local\\|our\\)\\)?[ \t]*\\(\\$[a-zA-Z_][a-zA-Z_0-9]*\\)[ \t]*(" - 4 font-lock-variable-name-face))) + 4 font-lock-variable-name-face) + ;; Avoid $!, and s!!, qq!! etc. when not fontifying syntaxically + '("\\(?:^\\|[^smywqrx$]\\)\\(!\\)" 1 font-lock-negation-char-face) + '("\\[\\(\\^\\)" 1 font-lock-negation-char-face prepend))) (setq t-font-lock-keywords-1 (and (fboundp 'turn-on-font-lock) ; Check for newer font-lock