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.

lisp/ChangeLog

+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):

lisp/progmodes/cperl-mode.el

@@ -4779,15 +4779,15 @@ indentation and initial hashes.  Behaves usually outside of comment."
 		'(
 		  ("\\(\\([@%]\\|\$#\\)[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")