diff options
author | Miles Bader <miles@gnu.org> | 2005-06-15 02:27:55 +0000 |
---|---|---|
committer | Miles Bader <miles@gnu.org> | 2005-06-15 02:27:55 +0000 |
commit | e6572f79e39619f87dd8ab1257865924e80bae73 (patch) | |
tree | 197b8e7a5d2676a1dc4411d33decfaea0554c346 /lisp/progmodes/cperl-mode.el | |
parent | a5d370313684626a2ec1f0f24e54db6499b1c651 (diff) | |
download | emacs-e6572f79e39619f87dd8ab1257865924e80bae73.tar.gz |
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.
Diffstat (limited to 'lisp/progmodes/cperl-mode.el')
-rw-r--r-- | lisp/progmodes/cperl-mode.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el index d81ee1ad5c2..9826c995b97 100644 --- a/lisp/progmodes/cperl-mode.el +++ b/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") |