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

diff --git a/sweep.el b/sweep.el
index b1a17fe152c38ffb7c230ea0c5b457d2c7491225..3b607664696051df67be289b14f0541475e0c523 100644 (file)
--- 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)))))))))