# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 971356114 0
# Node ID 50345ac8da5907196bf0977909d1caceb106216b
# Parent  25d437bcc9b64d070452abf265ac8691b1a511f2
(cperl-tips-faces): Doc fix.
(cperl-invalid-face): Revert last change.
(cperl-init-faces): Quote cperl-invalid-face.

diff -r 25d437bcc9b6 -r 50345ac8da59 lisp/progmodes/cperl-mode.el
--- a/lisp/progmodes/cperl-mode.el	Thu Oct 12 13:06:00 2000 +0000
+++ b/lisp/progmodes/cperl-mode.el	Thu Oct 12 13:08:34 2000 +0000
@@ -849,27 +849,27 @@
 (defvar cperl-tips-faces 'please-ignore-this-line
   "CPerl mode uses following faces for highlighting:
 
-  cperl-array-face		Array names
-  cperl-hash-face		Hash names
-  font-lock-comment-face	Comments, PODs and whatever is considered
+  `cperl-array-face'		Array names
+  `cperl-hash-face'		Hash names
+  `font-lock-comment-face'	Comments, PODs and whatever is considered
 				syntaxically to be not code
-  font-lock-constant-face	HERE-doc delimiters, labels, delimiters of
+  `font-lock-constant-face'	HERE-doc delimiters, labels, delimiters of
 				2-arg operators s/y/tr/ or of RExen,
-  font-lock-function-name-face	Special-cased m// and s//foo/, _ as
+  `font-lock-function-name-face' Special-cased m// and s//foo/, _ as 
 				a target of a file tests, file tests,
 				subroutine names at the moment of definition
 				(except those conflicting with Perl operators),
 				package names (when recognized), format names
-  font-lock-keyword-face	Control flow switch constructs, declarators
-  cperl-nonoverridable-face	Non-overridable keywords, modifiers of RExen
-  font-lock-string-face		Strings, qw() constructs, RExen, POD sections,
+  `font-lock-keyword-face'	Control flow switch constructs, declarators
+  `cperl-nonoverridable-face'	Non-overridable keywords, modifiers of RExen
+  `font-lock-string-face'	Strings, qw() constructs, RExen, POD sections,
 				literal parts and the terminator of formats
 				and whatever is syntaxically considered
 				as string literals
-  font-lock-type-face		Overridable keywords
-  font-lock-variable-name-face	Variable declarations, indirect array and
+  `font-lock-type-face'		Overridable keywords
+  `font-lock-variable-name-face' Variable declarations, indirect array and
 				hash names, POD headers/item names
-  cperl-invalid-face		Trailing whitespace
+  `cperl-invalid-face'		Trailing whitespace
 
 Note that in several situations the highlighting tries to inform about
 possible confusion, such as different colors for function names in
@@ -4341,7 +4341,7 @@
 	  (setq
 	   t-font-lock-keywords
 	   (list
-	    (list "[ \t]+$" 0 cperl-invalid-face t)
+	    (list "[ \t]+$" 0 'cperl-invalid-face t)
 	    (cons
 	     (concat
 	      "\\(^\\|[^$@%&\\]\\)\\<\\("