From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 8 Mar 2019 22:20:58 +0000 (-0500)
Subject: * lisp/emacs-lisp/cursor-sensor.el: Fix sensor behavior with overlays
X-Git-Tag: emacs-27.0.90~3456
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=76fdae8549ab54bd075520134deec0d69ac6987d;p=emacs.git

* 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.
---

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