From 76fdae8549ab54bd075520134deec0d69ac6987d Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 8 Mar 2019 17:20:58 -0500 Subject: [PATCH] * lisp/emacs-lisp/cursor-sensor.el: Fix sensor behavior with overlays (cursor-sensor--detect): Also consult overlay properties when checking to see if we just moved inside the same "element" as opposed to changing from one to another of the same type. --- lisp/emacs-lisp/cursor-sensor.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/emacs-lisp/cursor-sensor.el b/lisp/emacs-lisp/cursor-sensor.el index a21d78998ac..66b940f7fb3 100644 --- a/lisp/emacs-lisp/cursor-sensor.el +++ b/lisp/emacs-lisp/cursor-sensor.el @@ -160,7 +160,7 @@ By convention, this is a list of symbols where each symbol stands for the (setcdr old nil)) (if (or (and (null new) (null (cdr old))) (and (eq new (cdr old)) - (eq (next-single-property-change + (eq (next-single-char-property-change start 'cursor-sensor-functions nil end) end))) ;; Clearly nothing to do. @@ -172,7 +172,7 @@ By convention, this is a list of symbols where each symbol stands for the (let ((pos start) (missing nil)) (while (< pos end) - (setq pos (next-single-property-change + (setq pos (next-single-char-property-change pos 'cursor-sensor-functions nil end)) (unless (memq f (get-char-property -- 2.39.2