emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/sweeprolog 4a8fe00e40 2/2: FIXED: clear highlighting from


From: ELPA Syncer
Subject: [nongnu] elpa/sweeprolog 4a8fe00e40 2/2: FIXED: clear highlighting from whitespace after a fullstop
Date: Fri, 30 Sep 2022 16:59:10 -0400 (EDT)

branch: elpa/sweeprolog
commit 4a8fe00e40dc78cc47f448c25beae78fdd3c4cd1
Author: Eshel Yaron <me@eshelyaron.com>
Commit: Eshel Yaron <me@eshelyaron.com>

    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 137539f72a..51ffa58841 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"



reply via email to

[Prev in Thread] Current Thread [Next in Thread]