Index: emacs/lisp/progmodes/cperl-mode.el
diff -c emacs/lisp/progmodes/cperl-mode.el:1.68
emacs/lisp/progmodes/cperl-mode.el:1.69
*** emacs/lisp/progmodes/cperl-mode.el:1.68 Wed Jun 15 00:14:58 2005
--- emacs/lisp/progmodes/cperl-mode.el Wed Jun 15 02:27:54 2005
***************
*** 4779,4793 ****
'(
("\\(\\([EMAIL PROTECTED]|\$#\\)[a-zA-Z_:][a-zA-Z0-9_:]*\\)" 1
(if (eq (char-after (match-beginning 2)) ?%)
! cperl-hash-face
! cperl-array-face)
t) ; arrays and hashes
("\\(\\([EMAIL PROTECTED])[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
font-lock-variable-name-face) ; Just to put something
t)
;;("\\([smy]\\|tr\\)\\([^a-z_A-Z0-9]\\)\\(\\([^\n\\]*||\\)\\)\\2")
--- 4779,4793 ----
'(
("\\(\\([EMAIL PROTECTED]|\$#\\)[a-zA-Z_:][a-zA-Z0-9_:]*\\)" 1
(if (eq (char-after (match-beginning 2)) ?%)
! 'cperl-hash
! 'cperl-array)
t) ; arrays and hashes
("\\(\\([EMAIL PROTECTED])[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
! 'cperl-array) ; arrays and hashes
font-lock-variable-name-face) ; Just to put something
t)
;;("\\([smy]\\|tr\\)\\([^a-z_A-Z0-9]\\)\\(\\([^\n\\]*||\\)\\)\\2")
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
