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

[Stefan Monnier]

Index: emacs/lisp/progmodes/perl-mode.el
diff -c emacs/lisp/progmodes/perl-mode.el:1.55 
emacs/lisp/progmodes/perl-mode.el:1.56
*** emacs/lisp/progmodes/perl-mode.el:1.55      Sun Mar 20 18:04:41 2005
--- emacs/lisp/progmodes/perl-mode.el   Tue Mar 22 19:43:13 2005
***************
*** 207,217 ****
      '("\\<\\(local\\|my\\)\\>" . font-lock-type-face)
      ;;
      ;; Fontify function, variable and file name references.
!     '("&\\(\\sw+\\)" 1 font-lock-function-name-face)
      ;; Additionally underline non-scalar variables.  Maybe this is a bad idea.
      ;;'("address@hidden(\\sw+\\)" 1 font-lock-variable-name-face)
!     '("[$*]{?\\(\\sw+\\)" 1 font-lock-variable-name-face)
!     '("\\(address@hidden|\\$#\\)\\(\\sw+\\)"
        (2 (cons font-lock-variable-name-face '(underline))))
      '("<\\(\\sw+\\)>" 1 font-lock-constant-face)
      ;;
--- 207,217 ----
      '("\\<\\(local\\|my\\)\\>" . font-lock-type-face)
      ;;
      ;; Fontify function, variable and file name references.
!     '("&\\(\\sw+\\(::\\sw+\\)*\\)" 1 font-lock-function-name-face)
      ;; Additionally underline non-scalar variables.  Maybe this is a bad idea.
      ;;'("address@hidden(\\sw+\\)" 1 font-lock-variable-name-face)
!     '("[$*]{?\\(\\sw+\\(::\\sw+\\)*\\)" 1 font-lock-variable-name-face)
!     '("\\(address@hidden|\\$#\\)\\(\\sw+\\(::\\sw+\\)*\\)"
        (2 (cons font-lock-variable-name-face '(underline))))
      '("<\\(\\sw+\\)>" 1 font-lock-constant-face)
      ;;