* progmodes/cperl-mode.el (cperl-invalid-face): Fix defcustom.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9712ccc217644091f0ba66cc9d429dab60e0db31..ba5843541a43a842dd2904f6562de909ef394f72 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2006-10-22  martin rudalics  <rudalics@gmx.at>
+
+       * progmodes/cperl-mode.el (cperl-invalid-face): Fix defcustom.
+
 2006-10-22  John Wiegley  <johnw@newartisans.com>
 
        * progmodes/python.el (python-use-skeletons): python-mode was

diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el
index f31bbdcc1629cb11ea39f74404354270ffa12b3c..26bbb8f3fafe88fe1200578a56b2e62694db6d9c 100644 (file)
--- a/lisp/progmodes/cperl-mode.el
+++ b/lisp/progmodes/cperl-mode.el
@@ -445,12 +445,8 @@ Font for POD headers."
 ;;; Some double-evaluation happened with font-locks...  Needed with 21.2...
 (defvar cperl-singly-quote-face cperl-xemacs-p)
 
-(defcustom cperl-invalid-face          ; Does not customize with '' on XEmacs
-  (if cperl-singly-quote-face
-      'underline ''underline) ; On older Emacsen was evaluated by `font-lock'
-  (if cperl-singly-quote-face
-      "*This face is used for highlighting trailing whitespace."
-    "*Face for highlighting trailing whitespace.")
+(defcustom cperl-invalid-face 'underline
+  "*Face for highlighting trailing whitespace."
   :type 'face
   :version "21.1"
   :group 'cperl-faces)