From 1744b29cc21694fde4e732ef9a3a010bdd4f47e0 Mon Sep 17 00:00:00 2001
From: Eshel Yaron <me@eshelyaron.com>
Date: Sat, 10 Sep 2022 15:54:12 +0300
Subject: [PATCH] FIXED: off by one in sweep-colourise-some-terms

---
 sweep.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/sweep.el b/sweep.el
index c461402..c10870f 100644
--- a/sweep.el
+++ b/sweep.el
@@ -831,7 +831,7 @@ module name, F is a functor name and N is its arity."
   (let* ((beg (save-mark-and-excursion
                 (goto-char beg0)
                 (sweep-beginning-of-top-term)
-                (point)))
+                (max (1- (point)) (point-min))))
          (end (save-mark-and-excursion
                 (goto-char end0)
                 (sweep-end-of-top-term)
-- 
2.39.2