More fixes for highlighting of angled strings

Resolves #9.
hinrik · Jul 30, 2016 · 92c9915 · 92c9915
1 parent 5456e2b
commit 92c9915
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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))