branch: elpa/raku-mode
commit 1ff189c6e7e6c6498d4ec5f357a346d4bd44cd3a
Author: Hinrik Örn Sigurðsson <hinrik....@gmail.com>
Commit: Hinrik Örn Sigurðsson <hinrik....@gmail.com>
TIL about `point-at-bol'
---
perl6-font-lock.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/perl6-font-lock.el b/perl6-font-lock.el
index daf1fc1215..1ac7ec3308 100644
--- a/perl6-font-lock.el
+++ b/perl6-font-lock.el
@@ -251,7 +251,7 @@ OPEN-ANGLES is the opening delimiter (e.g. \"«\" or
\"<<\")."
(open-angle (string-to-char (car (split-string open-angles "" t))))
(close-angle (matching-paren open-angle))
(quote-beg (- (point) angle-length))
- (line-beg (save-excursion (and (beginning-of-line) (point)))))
+ (line-beg (point-at-bol)))
(unless (or (looking-at "[-=]")
(looking-back (rx-to-string `(and (char "+~=!")
,open-angle)) 2))
(when (or (or (not (looking-at "[\s\n]"))
