Mercurial > emacs

changeset 51163:5635fb18b7d6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(perl-font-lock-syntactic-keywords): Match more cases of /.../ patterns.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Fri, 23 May 2003 15:49:16 +0000
parents 9b6803d4f8ef
children 0b871f4efb59
files lisp/progmodes/perl-mode.el
diffstat 1 files changed, 5 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/perl-mode.el	Fri May 23 13:35:36 2003 +0000
+++ b/lisp/progmodes/perl-mode.el	Fri May 23 15:49:16 2003 +0000
@@ -257,19 +257,20 @@
     ("\\$ ?{?^?[_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]\\)"
+    ("[?:.,;=!~({[][ \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))))))
+	    '(15) '(7))))
+    ;; TODO: here-documents ("<<\\(\\sw\\|['\"]\\)")
+    ))
 
 (defvar perl-empty-syntax-table
   (let ((st (copy-syntax-table)))