Mercurial > emacs
changeset 62085:7dbe52d92117
Avoid $! for font-lock-negation-char-face.
| author | Daniel Pfeiffer <occitan@esperanto.org> |
|---|---|
| date | Thu, 05 May 2005 19:20:03 +0000 |
| parents | 3deee372e47e |
| children | 5393e8e13b21 |
| files | lisp/progmodes/cperl-mode.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/cperl-mode.el Thu May 05 19:10:58 2005 +0000 +++ b/lisp/progmodes/cperl-mode.el Thu May 05 19:20:03 2005 +0000 @@ -4752,8 +4752,8 @@ 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) - ;; Avoid s!!, qq!! etc. when not fontifying syntaxically - '("\\(?:^\\|[^smywqrx]\\)\\(!\\)" 1 font-lock-negation-char-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