branch: elpa/raku-mode commit 92c9915396cd3b89f6375a4c6aa89d9c71e67afc Author: Hinrik Örn Sigurðsson <hinrik....@gmail.com> Commit: Hinrik Örn Sigurðsson <hinrik....@gmail.com>
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))