branch: elpa/raku-mode
commit 1ef289eb4daddacada6879e5f4f2d23a67e89ef6
Author: Hinrik Örn Sigurðsson <[email protected]>
Commit: Hinrik Örn Sigurðsson <[email protected]>
Consider 4096 be eof when looking for the next line
Here I'm also fixing a bug introduced in af61f78 where it would fail to
skip over whitespace/comments.
---
perl6-mode.el | 11 ++++++-----
1 file changed, 6 insertions(+), 5 deletions(-)
diff --git a/perl6-mode.el b/perl6-mode.el
index 9dfe46732c..0580f5c4f2 100644
--- a/perl6-mode.el
+++ b/perl6-mode.el
@@ -73,18 +73,19 @@
(and (and (stringp buffer-file-name)
(string-match "\\.\\(?:t\\|p[lm]\\)\\'" buffer-file-name))
(let ((keep-going t)
- (found-perl6 nil))
+ (found-perl6 nil)
+ (max-pos (min 4096 (point-max))))
(while keep-going
- (cond ((eq (point) (point-max))
+ (cond ((>= (point) max-pos)
(setq keep-going nil))
- ((re-search-forward "^ *\\(?:#.*\\)?$" 4096 'noerror)
+ ((looking-at "^ *\\(?:#.*\\)?$")
nil)
- ((re-search-forward perl6-magic-pattern 4096 'noerror)
+ ((looking-at perl6-magic-pattern)
(setq keep-going nil
found-perl6 t))
(t
(setq keep-going nil)))
- (search-forward "\n" 4096 'noerror))
+ (beginning-of-line 2))
found-perl6))))
;;;###autoload
