ADDED: new user option sweeprolog-enable-cursor-sensor

* sweeprolog-enable-cursor-sensor: New option
* (sweeprolog-mode): use it

diff --git a/sweeprolog.el b/sweeprolog.el
index 937e62164c7fd5d2c000bd301ed497d43e1dae54..794e0aa7b1b1f72ec375f2a526758c103857aeb8 100644 (file)
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -127,6 +127,16 @@ inserted to the input history in `sweeprolog-top-level-mode' buffers."
   :type '(repeat string)
   :group 'sweeprolog)
 
+(defcustom sweeprolog-enable-cursor-sensor t
+  "If non-nil, enable `cursor-sensor-mode' in `sweeprolog-mode'.
+
+When enabled, `sweeprolog-mode' leverages `cursor-sensor-mode' to
+highlight all occurences of the variable at point in the current
+clause."
+  :package-version '((sweeprolog "0.4.2"))
+  :type 'boolean
+  :group 'sweeprolog)
+
 (defvar sweeprolog-prolog-server-port nil)
 
 (declare-function sweeprolog-initialize    "sweep-module")
@@ -2179,17 +2189,10 @@ Interactively, POINT is set to the current point."
     (add-hook 'kill-buffer-hook
               (lambda ()
                 (when (timerp sweeprolog--timer)
-                  (cancel-timer sweeprolog--timer))))))
-
+                  (cancel-timer sweeprolog--timer)))))
+  (when sweeprolog-enable-cursor-sensor
+    (cursor-sensor-mode 1)))
 
-(defun sweeprolog-cursor-sensor-functions (var)
-  (list
-   (lambda (_win old dir)
-     (if (eq dir 'entered)
-         (let ((sweeprolog--variable-at-point var))
-           (font-lock-fontify-region (point) (point)))
-       (let ((sweeprolog--variable-at-point nil))
-         (font-lock-fontify-region old old))))))
 
 (provide 'sweeprolog)