Mercurial > emacs
changeset 62081:c186a2b77f86
(cperl-init-faces): Use font-lock-negation-char-face.
| author | Daniel Pfeiffer <occitan@esperanto.org> |
|---|---|
| date | Thu, 05 May 2005 19:04:39 +0000 |
| parents | 2922c607db05 |
| children | 2805978983d8 |
| files | lisp/progmodes/cperl-mode.el |
| diffstat | 1 files changed, 4 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/cperl-mode.el Thu May 05 19:03:32 2005 +0000 +++ b/lisp/progmodes/cperl-mode.el Thu May 05 19:04:39 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 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