changeset 73461:c09fdf139d4a

* progmodes/cperl-mode.el (cperl-invalid-face): Fix defcustom.
author Chong Yidong <cyd@stupidchicken.com>
date Sun, 22 Oct 2006 21:00:25 +0000
parents 1ba9051bf981
children 9b076439f58a
files lisp/ChangeLog lisp/progmodes/cperl-mode.el
diffstat 2 files changed, 6 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- 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
--- 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)