branch: elpa/sweeprolog
commit 16d1a380ab3a6a9622f06f54c311f56efe4d7a48
Author: Eshel Yaron <m...@eshelyaron.com>
Commit: Eshel Yaron <m...@eshelyaron.com>
FIXED: (sweep-beginning-of-top-term): possible infinite loop
---
sweep.el | 1 +
1 file changed, 1 insertion(+)
diff --git a/sweep.el b/sweep.el
index b1a17fe152..3b60766469 100644
--- a/sweep.el
+++ b/sweep.el
@@ -1060,6 +1060,7 @@ Interactively, a prefix arg means to prompt for BUFFER."
(nth 8 (syntax-ppss (1+ (point)))))))
(while (and safe-start (not (bobp)))
(goto-char safe-start)
+ (backward-char)
(re-search-backward (rx bol graph) nil t)
(setq safe-start (or (nth 8 (syntax-ppss))
(nth 8 (syntax-ppss (1+ (point)))))))))
