(cperl-tips-faces): Doc fix.

(cperl-invalid-face): Revert last change.
(cperl-init-faces): Quote cperl-invalid-face.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 28bfe56eeea0cca93f2ef71da33078f638a74804..20cd22240d148715b264a90ff5c9f7eb6f7d03fe 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2000-10-12  Dave Love  <fx@gnu.org>
+
+       * progmodes/cperl-mode.el (cperl-tips-faces): Doc fix.
+       (cperl-invalid-face): Revert last change.
+       (cperl-init-faces): Quote cperl-invalid-face.
+
 2000-10-12  Kenichi Handa  <handa@etl.go.jp>
 
        * startup.el (fancy-splash-text): Remove superfluous quote.

diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el
index 2aecc92dc71251a08c4629cb899657f5757a69e9..64b6574d0d2e641198561aa16aff15194905fd00 100644 (file)
--- a/lisp/progmodes/cperl-mode.el
+++ b/lisp/progmodes/cperl-mode.el
@@ -849,27 +849,27 @@ B) Speed of editing operations.
 (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 @@ indentation and initial hashes.  Behaves usually outside of comment."
          (setq
           t-font-lock-keywords
           (list
-           (list "[ \t]+$" 0 cperl-invalid-face t)
+           (list "[ \t]+$" 0 'cperl-invalid-face t)
            (cons
             (concat
              "\\(^\\|[^$@%&\\]\\)\\<\\("