Mercurial > emacs
changeset 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 | fe2fc708f3ef |
| children | 8aa0953a6870 |
| files | lisp/ChangeLog lisp/progmodes/cperl-mode.el |
| diffstat | 2 files changed, 9 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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):
--- 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")