From: Chong Yidong <cyd@stupidchicken.com>
Date: Sun, 22 Oct 2006 21:00:25 +0000 (+0000)
Subject: * progmodes/cperl-mode.el (cperl-invalid-face): Fix defcustom.
X-Git-Tag: emacs-pretest-22.0.90~44
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=224ca9c976305d1fa2d3d1c38dbd2e687488b167;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9712ccc2176..ba5843541a4 100644
--- 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 f31bbdcc162..26bbb8f3faf 100644
--- 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)