From 8bee10187cd6af7a42b4842deb47f8813496db49 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 23 May 2003 15:49:16 +0000 Subject: [PATCH] (perl-font-lock-syntactic-keywords): Match more cases of /.../ patterns. --- lisp/progmodes/perl-mode.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) 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))) -- 2.39.2