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

[Daniel Pfeiffer]

Index: emacs/lisp/progmodes/cperl-mode.el
diff -c emacs/lisp/progmodes/cperl-mode.el:1.61 
emacs/lisp/progmodes/cperl-mode.el:1.62
*** emacs/lisp/progmodes/cperl-mode.el:1.61     Wed Apr 27 19:46:13 2005
--- emacs/lisp/progmodes/cperl-mode.el  Thu May  5 19:04:39 2005
***************
*** 4751,4757 ****
                  (t '("^[ \t{}]*\\(my\\|local\\our\\)[ \t]*\\(([ 
\t]*\\)?\\(address@hidden:]+\\)"
                       3 font-lock-variable-name-face)))
            '("\\<for\\(each\\)?\\([ \t]+\\(my\\|local\\|our\\)\\)?[ 
\t]*\\(\\$[a-zA-Z_][a-zA-Z_0-9]*\\)[ \t]*("
!             4 font-lock-variable-name-face)))
          (setq
           t-font-lock-keywords-1
           (and (fboundp 'turn-on-font-lock) ; Check for newer font-lock
--- 4751,4760 ----
                  (t '("^[ \t{}]*\\(my\\|local\\our\\)[ \t]*\\(([ 
\t]*\\)?\\(address@hidden:]+\\)"
                       3 font-lock-variable-name-face)))
            '("\\<for\\(each\\)?\\([ \t]+\\(my\\|local\\|our\\)\\)?[ 
\t]*\\(\\$[a-zA-Z_][a-zA-Z_0-9]*\\)[ \t]*("
!             4 font-lock-variable-name-face)
!           ;; Avoid s!!, qq!! etc. when not fontifying syntaxically
!           '("\\(?:^\\|[^smywqrx]\\)\\(!\\)" 1 font-lock-negation-char-face)
!           '("\\[\\(\\^\\)" 1 font-lock-negation-char-face prepend)))
          (setq
           t-font-lock-keywords-1
           (and (fboundp 'turn-on-font-lock) ; Check for newer font-lock