[Emacs-diffs] Changes to emacs/lisp/progmodes/cperl-mode.el

[Miles Bader]

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 ****
                '(
                  ("\\(\\(address@hidden|\$#\\)[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
                  ("\\(\\(address@hidden)[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 ----
                '(
                  ("\\(\\(address@hidden|\$#\\)[a-zA-Z_:][a-zA-Z0-9_:]*\\)" 1
                   (if (eq (char-after (match-beginning 2)) ?%)
!                      'cperl-hash
!                    'cperl-array)
                   t)                   ; arrays and hashes
                  ("\\(\\(address@hidden)[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")