FIXED: off by one in sweep-colourise-some-terms

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