From e49e93bfc51f49404edb14269a5b515e2a2046ce Mon Sep 17 00:00:00 2001
From: Eshel Yaron <me@eshelyaron.com>
Date: Sat, 19 Nov 2022 22:02:45 +0200
Subject: [PATCH] * (sweeprolog-analyze-fragment-to-faces) fix comment
 highlighting

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

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"
-- 
2.39.2