[nongnu] elpa/sweeprolog 16d1a380ab 122/166: FIXED: (sweep-beginning-of-top-term): possible infinite loop

[ELPA Syncer]

branch: elpa/sweeprolog
commit 16d1a380ab3a6a9622f06f54c311f56efe4d7a48
Author: Eshel Yaron <me@eshelyaron.com>
Commit: Eshel Yaron <me@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)))))))))