[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.60 
emacs/lisp/progmodes/perl-mode.el:1.61
*** emacs/lisp/progmodes/perl-mode.el:1.60      Tue Aug 30 11:11:04 2005
--- emacs/lisp/progmodes/perl-mode.el   Wed Sep  7 19:54:49 2005
***************
*** 267,278 ****
      ("\\<sub\\s-+\\S-+\\s-*(\\([^)]+\\))" 1 '(1))
      ;; regexp and funny quotes
      ("[?:.,;=!~({[][ \t\n]*\\(/\\)" (1 '(7)))
!     ("[?:.,;=!~({[ \t\n]\\([msy]\\|q[qxrw]?\\|tr\\)\\>\\s-*\\([^])}> \n\t]\\)"
       ;; Nasty cases:
       ;; /foo/m  $a->m  $#m $m @m %m
       ;; \s (appears often in regexps).
       ;; -s file
!      (2 (if (assoc (char-after (match-beginning 2))
                   perl-quote-like-pairs)
            '(15) '(7))))
      ;; TODO: here-documents ("<<\\(\\sw\\|['\"]\\)")
--- 267,278 ----
      ("\\<sub\\s-+\\S-+\\s-*(\\([^)]+\\))" 1 '(1))
      ;; regexp and funny quotes
      ("[?:.,;=!~({[][ \t\n]*\\(/\\)" (1 '(7)))
!     ("\\(^\\|[?:.,;=!~({[ \t]\\)\\([msy]\\|q[qxrw]?\\|tr\\)\\>\\s-*\\([^])}> 
\n\t]\\)"
       ;; Nasty cases:
       ;; /foo/m  $a->m  $#m $m @m %m
       ;; \s (appears often in regexps).
       ;; -s file
!      (3 (if (assoc (char-after (match-beginning 3))
                   perl-quote-like-pairs)
            '(15) '(7))))
      ;; TODO: here-documents ("<<\\(\\sw\\|['\"]\\)")