Commit ac6857fb authored by Dave Love's avatar Dave Love
Browse files

(cperl-invalid-face): Don't double-quote

value.
(cperl-init-faces): Allow cperl-invalid-face to be a normal face.
parent 67ecad4e
......@@ -363,9 +363,10 @@ Font for POD headers."
:type 'face
:group 'cperl-faces)
(defcustom cperl-invalid-face ''underline
(defcustom cperl-invalid-face 'underline
"*Face for highlighting trailing whitespace."
:type 'face
:version "21.1"
:group 'cperl-faces)
(defcustom cperl-pod-here-fontify '(featurep 'font-lock)
......@@ -4341,7 +4342,7 @@ indentation and initial hashes. Behaves usually outside of comment."
(setq
t-font-lock-keywords
(list
(list "[ \t]+$" 0 'cperl-invalid-face t)
`("[ \t]+$" 0 ',cperl-invalid-face t)
(cons
(concat
"\\(^\\|[^$@%&\\]\\)\\<\\("
......
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