diff options
| author | Daniel Pfeiffer <occitan@esperanto.org> | 2005-05-05 19:20:03 +0000 |
|---|---|---|
| committer | Daniel Pfeiffer <occitan@esperanto.org> | 2005-05-05 19:20:03 +0000 |
| commit | 9ed9fd3572ef8b4c2bf19e64fbb19823215cc3d8 (patch) | |
| tree | 4f61f0ae54bf238b5d7d52fece6368dd2abf535c /lisp | |
| parent | b854556ff5e9a70efff7a46915a9804c257700c3 (diff) | |
| download | emacs-9ed9fd3572ef8b4c2bf19e64fbb19823215cc3d8.tar.gz emacs-9ed9fd3572ef8b4c2bf19e64fbb19823215cc3d8.tar.bz2 emacs-9ed9fd3572ef8b4c2bf19e64fbb19823215cc3d8.zip | |
Avoid $! for font-lock-negation-char-face.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/progmodes/cperl-mode.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el index 35957457a9a..e32a43ede9e 100644 --- a/lisp/progmodes/cperl-mode.el +++ b/lisp/progmodes/cperl-mode.el @@ -4752,8 +4752,8 @@ indentation and initial hashes. Behaves usually outside of comment." 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 |