# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 1118802475 0
# Node ID 645f22f05a9a8ad333e190583d6b42336ac85af5
# Parent  fe2fc708f3ef5d8b971a5c55f8b334999e0e30fe
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-420

Fix cperl-mode font-lock problem

2005-06-15  Miles Bader  <miles@gnu.org>

   * lisp/progmodes/cperl-mode.el (cperl-init-faces): Use literal cperl
   faces instead of (non-existent) variables.

diff -r fe2fc708f3ef -r 645f22f05a9a lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Jun 15 00:17:41 2005 +0000
+++ b/lisp/ChangeLog	Wed Jun 15 02:27:55 2005 +0000
@@ -1,3 +1,8 @@
+2005-06-15  Miles Bader  <miles@gnu.org>
+
+	* progmodes/cperl-mode.el (cperl-init-faces): Use literal cperl
+	faces instead of (non-existent) variables.
+
 2005-06-14  Miles Bader  <miles@gnu.org>
 
 	* progmodes/ld-script.el (ld-script-location-counter):
diff -r fe2fc708f3ef -r 645f22f05a9a lisp/progmodes/cperl-mode.el
--- a/lisp/progmodes/cperl-mode.el	Wed Jun 15 00:17:41 2005 +0000
+++ b/lisp/progmodes/cperl-mode.el	Wed Jun 15 02:27:55 2005 +0000
@@ -4779,15 +4779,15 @@
 		'(
 		  ("\\(\\([@%]\\|\$#\\)[a-zA-Z_:][a-zA-Z0-9_:]*\\)" 1
 		   (if (eq (char-after (match-beginning 2)) ?%)
-		       cperl-hash-face
-		     cperl-array-face)
+		       'cperl-hash
+		     'cperl-array)
 		   t)			; arrays and hashes
 		  ("\\(\\([$@]+\\)[a-zA-Z_:][a-zA-Z0-9_:]*\\)[ \t]*\\([[{]\\)"
 		   1
 		   (if (= (- (match-end 2) (match-beginning 2)) 1)
 		       (if (eq (char-after (match-beginning 3)) ?{)
-			   cperl-hash-face
-			 cperl-array-face) ; arrays and hashes
+			   'cperl-hash
+			 'cperl-array) ; arrays and hashes
 		     font-lock-variable-name-face) ; Just to put something
 		   t)
 		  ;;("\\([smy]\\|tr\\)\\([^a-z_A-Z0-9]\\)\\(\\([^\n\\]*||\\)\\)\\2")