From: Eshel Yaron <me@eshelyaron.com>
Date: Fri, 16 Sep 2022 11:08:32 +0000 (+0300)
Subject: FIXED: (sweep-beginning-of-top-term): possible infinite loop
X-Git-Tag: v0.3.0~5
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=16d1a380ab3a6a9622f06f54c311f56efe4d7a48;p=dict.git

FIXED: (sweep-beginning-of-top-term): possible infinite loop
---

diff --git a/sweep.el b/sweep.el
index b1a17fe..3b60766 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)))))))))