From: Stefan Monnier Date: Fri, 23 May 2003 15:49:16 +0000 (+0000) Subject: (perl-font-lock-syntactic-keywords): Match more cases of /.../ patterns. X-Git-Tag: ttn-vms-21-2-B4~10014 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8bee10187cd6af7a42b4842deb47f8813496db49;p=emacs.git (perl-font-lock-syntactic-keywords): Match more cases of /.../ patterns. --- diff --git a/lisp/progmodes/perl-mode.el b/lisp/progmodes/perl-mode.el index e01b32034b2..7017ac0d299 100644 --- a/lisp/progmodes/perl-mode.el +++ b/lisp/progmodes/perl-mode.el @@ -257,19 +257,20 @@ The expansion is entirely correct because it uses the C preprocessor." ("\\$ ?{?^?[_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 ($$)' ("\\\\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)))