[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.47 
emacs/lisp/progmodes/perl-mode.el:1.48
*** emacs/lisp/progmodes/perl-mode.el:1.47      Sat May 17 18:38:13 2003
--- emacs/lisp/progmodes/perl-mode.el   Fri May 23 11:49:16 2003
***************
*** 257,275 ****
      ("\\$ ?{?^?[_a-zA-Z][_a-zA-Z0-9]*\\('\\)[_a-zA-Z]" (1 "_"))
      ;; format statements
      ("^[ \t]*format.*=[ \t]*\\(\n\\)" (1 '(7)))
-     ;; TODO: here-documents ("<<\\(\\sw\\|['\"]\\)")
      ;; Funny things in sub arg specifications like `sub myfunc ($$)'
      ("\\<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))))))
  
  (defvar perl-empty-syntax-table
    (let ((st (copy-syntax-table)))
--- 257,276 ----
      ("\\$ ?{?^?[_a-zA-Z][_a-zA-Z0-9]*\\('\\)[_a-zA-Z]" (1 "_"))
      ;; format statements
      ("^[ \t]*format.*=[ \t]*\\(\n\\)" (1 '(7)))
      ;; Funny things in sub arg specifications like `sub myfunc ($$)'
      ("\\<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\\|['\"]\\)")
!     ))
  
  (defvar perl-empty-syntax-table
    (let ((st (copy-syntax-table)))