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