branch: elpa/raku-mode
commit 92c9915396cd3b89f6375a4c6aa89d9c71e67afc
Author: Hinrik Örn Sigurðsson <[email protected]>
Commit: Hinrik Örn Sigurðsson <[email protected]>
More fixes for highlighting of angled strings
Resolves #9.
---
perl6-font-lock.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/perl6-font-lock.el b/perl6-font-lock.el
index f70c1de858..a10c805440 100644
--- a/perl6-font-lock.el
+++ b/perl6-font-lock.el
@@ -383,8 +383,8 @@ OPEN-ANGLES is the opening delimiter (e.g. \"«\" or
\"<<\")."
(quote-beg (- (point) angle-length))
(line-beg (point-at-bol)))
(when
- (and (not (or (looking-at (rx-to-string `(= 2 (char "-=") 2 2)))
- (looking-at (rx-to-string `(and (** 1 2 (char "-="))
">")))
+ (and (not (or (looking-at (rx-to-string `(or "=" (= 2 (char "-=")))))
+ (looking-at (rx-to-string `(and (** 1 2 "-")
,close-angle)))
(looking-back (rx-to-string `(and (char "+~=!")
,open-angle)) 2)))
(or (not (looking-at "[\s\n]"))
(not (looking-back (rx-to-string `(and (char "\s\n")
,open-angle)) 2))
