From 4a8fe00e40dc78cc47f448c25beae78fdd3c4cd1 Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Fri, 30 Sep 2022 23:23:06 +0300 Subject: [PATCH] FIXED: clear highlighting from whitespace after a fullstop --- sweeprolog.el | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/sweeprolog.el b/sweeprolog.el index 137539f..51ffa58 100644 --- 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" -- 2.39.5