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

(perl-font-lock-syntactic-keywords): Correctly match / regexp matchers

as first char on a line when fontifying only that line.
parent 4d78a860
2007-08-16 Stefan Monnier <monnier@iro.umontreal.ca>
 
* progmodes/perl-mode.el (perl-font-lock-syntactic-keywords):
Correctly match / regexp matchers as first char on a line when
fontifying only that line.
* emacs-lisp/cl-macs.el (cl-transform-lambda): Preserve the match-data.
 
2007-08-16 Glenn Morris <rgm@gnu.org>
......@@ -267,8 +267,16 @@ The expansion is entirely correct because it uses the C preprocessor."
("^[ \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)))
;; Regexp and funny quotes.
("\\(?:[?:.,;=!~({[]\\|\\(^\\)\\)[ \t\n]*\\(/\\)"
(2 (if (and (match-end 1)
(save-excursion
(goto-char (match-end 1))
(skip-chars-backward " \t\n")
(not (memq (char-before)
'(?? ?: ?. ?, ?\; ?= ?! ?~ ?\( ?\[)))))
nil ;; A division sign instead of a regexp-match.
'(7))))
("\\(^\\|[?:.,;=!~({[ \t]\\)\\([msy]\\|q[qxrw]?\\|tr\\)\\>\\s-*\\([^])}> \n\t]\\)"
;; Nasty cases:
;; /foo/m $a->m $#m $m @m %m
......
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