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

diff --git a/sweeprolog.el b/sweeprolog.el
index 76a1a274b5c26c23fb3cb4920b9ed497d7bbd2ce..4d66835e01d5870181b3c7674e31c2e50cc779a9 100644 (file)
--- 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"