Mercurial > emacs
diff lisp/progmodes/cperl-mode.el @ 63460:645f22f05a9a
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.
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Wed, 15 Jun 2005 02:27:55 +0000 |
| parents | 3265e9c7ab3d |
| children | 475955d58ad4 a1b34dec1104 |
line wrap: on
line diff
--- 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")