# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 978481168 0
# Node ID 587807c5e8e64833bbf7f1e4b070e89f19064293
# Parent  444b43c3897875b20fe611a437a8cdf519fd7f7f
(cperl-invalid-face): Don't double-quote
value.
(cperl-init-faces): Allow cperl-invalid-face to be a normal face.

diff -r 444b43c38978 -r 587807c5e8e6 lisp/progmodes/cperl-mode.el
--- a/lisp/progmodes/cperl-mode.el	Wed Jan 03 00:18:53 2001 +0000
+++ b/lisp/progmodes/cperl-mode.el	Wed Jan 03 00:19:28 2001 +0000
@@ -363,9 +363,10 @@
   :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 @@
 	  (setq
 	   t-font-lock-keywords
 	   (list
-	    (list "[ \t]+$" 0 'cperl-invalid-face t)
+	    `("[ \t]+$" 0 ',cperl-invalid-face t)
 	    (cons
 	     (concat
 	      "\\(^\\|[^$@%&\\]\\)\\<\\("