# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1161550825 0
# Node ID c09fdf139d4ac6be7806f7ae3f39c1589773be99
# Parent  1ba9051bf981fda74c40d7ff906fe1cb722e09b6
	* progmodes/cperl-mode.el (cperl-invalid-face): Fix defcustom.

diff -r 1ba9051bf981 -r c09fdf139d4a lisp/ChangeLog
--- a/lisp/ChangeLog	Sun Oct 22 20:39:36 2006 +0000
+++ b/lisp/ChangeLog	Sun Oct 22 21:00:25 2006 +0000
@@ -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 -r 1ba9051bf981 -r c09fdf139d4a lisp/progmodes/cperl-mode.el
--- a/lisp/progmodes/cperl-mode.el	Sun Oct 22 20:39:36 2006 +0000
+++ b/lisp/progmodes/cperl-mode.el	Sun Oct 22 21:00:25 2006 +0000
@@ -445,12 +445,8 @@
 ;;; 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)