branch: elpa/sweeprolog
commit 974650db04bc1324fba44facbd2542677f3f98b4
Author: Eshel Yaron <m...@eshelyaron.com>
Commit: Eshel Yaron <m...@eshelyaron.com>
; (sweeprolog-cursor-sensor-functions): Future-proof.
In Emacs commit 08fba517f66, 'cursor-sensor-functions' got a new
possible "direction" on top of the current 'entered' and 'left',
so better check explicitly for the directions we care about.
---
sweeprolog.el | 7 +++----
1 file changed, 3 insertions(+), 4 deletions(-)
diff --git a/sweeprolog.el b/sweeprolog.el
index f6a66fa365..f51e37446b 100644
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -3383,10 +3383,9 @@ variable at point, if any."
(defun sweeprolog-cursor-sensor-functions (var)
(list
(lambda (_win old dir)
- (if (eq dir 'entered)
- (sweeprolog-highlight-variable (point) var)
- (sweeprolog-highlight-variable old)))))
-
+ (cond
+ ((eq dir 'entered) (sweeprolog-highlight-variable (point) var))
+ ((eq dir 'left) (sweeprolog-highlight-variable old))))))
;;;; Flymake
