From: Eshel Yaron <me@eshelyaron.com>
Date: Sat, 19 Nov 2022 20:02:45 +0000 (+0200)
Subject: * (sweeprolog-analyze-fragment-to-faces) fix comment highlighting
X-Git-Tag: V8.5.20-sweep-0.8.9~3
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e49e93bfc51f49404edb14269a5b515e2a2046ce;p=sweep.git

* (sweeprolog-analyze-fragment-to-faces) fix comment highlighting
---

diff --git a/sweeprolog.el b/sweeprolog.el
index 76a1a27..4d66835 100644
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -1887,7 +1887,7 @@ resulting list even when found in the current clause."
            (setq cur (point)))
          (skip-chars-forward " \t\n")
          (push (list cur (point) nil) ws)
-         (cons (list beg (point) nil)
+         (cons (list beg end nil)
                (cons (list beg end (sweeprolog-fullstop-face))
                      ws)))))
     ("functor"