Commit eb6121fc authored by Daniel Pfeiffer's avatar Daniel Pfeiffer
Browse files

(cperl-init-faces): Use font-lock-negation-char-face.

parent d5f2a899
......@@ -4751,7 +4751,10 @@ indentation and initial hashes. Behaves usually outside of comment."
(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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment