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
 

Reply via email to