FIXED: clear highlighting from whitespace after a fullstop

diff --git a/sweeprolog.el b/sweeprolog.el
index 137539f72af64a6df689c1ee75cc785a7e2e1e28..51ffa58841c7e501bb66b8aa6e470dd7e465214d 100644 (file)
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -6,7 +6,7 @@
 ;; Maintainer: Eshel Yaron <~eshel/dev@lists.sr.ht>
 ;; Keywords: prolog languages extensions
 ;; URL: https://git.sr.ht/~eshel/sweep
-;; Package-Version: 0.4.4
+;; Package-Version: 0.4.5
 ;; Package-Requires: ((emacs "28"))
 
 ;; This file is NOT part of GNU Emacs.
@@ -1271,7 +1271,13 @@ module name, F is a functor name and N is its arity."
                   (string= sweeprolog--variable-at-point var)
                   (list (list beg end (sweeprolog-variable-at-point-face)))))))
     ("fullstop"
-     (list (list beg end (sweeprolog-fullstop-face))))
+     (list (list beg
+                 (save-excursion
+                   (goto-char (min (1+ end) (point-max)))
+                   (skip-chars-forward " \t\n")
+                   (point))
+                 nil)
+           (list beg end (sweeprolog-fullstop-face))))
     ("functor"
      (list (list beg end (sweeprolog-functor-face))))
     ("arity"