Commit dcc6da3a authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(perl-font-lock-syntactic-keywords):

Fix regexp for when "s///" is at the beginning of line.
parent 2ccc02f2
2005-09-07 Stefan Monnier <monnier@iro.umontreal.ca>
* progmodes/perl-mode.el (perl-font-lock-syntactic-keywords):
Fix regexp for when "s///" is at the beginning of line.
2005-09-07 Jay Belanger <belanger@truman.edu>
 
* calc/calc-poly.el (math-expand-term): Multiply out any powers
......
......@@ -267,12 +267,12 @@ The expansion is entirely correct because it uses the C preprocessor."
("\\<sub\\s-+\\S-+\\s-*(\\([^)]+\\))" 1 '(1))
;; regexp and funny quotes
("[?:.,;=!~({[][ \t\n]*\\(/\\)" (1 '(7)))
("[?:.,;=!~({[ \t\n]\\([msy]\\|q[qxrw]?\\|tr\\)\\>\\s-*\\([^])}> \n\t]\\)"
("\\(^\\|[?:.,;=!~({[ \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
(2 (if (assoc (char-after (match-beginning 2))
(3 (if (assoc (char-after (match-beginning 3))
perl-quote-like-pairs)
'(15) '(7))))
;; TODO: here-documents ("<<\\(\\sw\\|['\"]\\)")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment