diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2019-03-08 17:20:58 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2019-03-08 17:20:58 -0500 |
| commit | 76fdae8549ab54bd075520134deec0d69ac6987d (patch) | |
| tree | ee6076c1669b506aa2207c7d2af935f2173a5144 /lisp/emacs-lisp/cursor-sensor.el | |
| parent | bec7fb2988c98a4103cc77bebc454c81a89e0f49 (diff) | |
| download | emacs-76fdae8549ab54bd075520134deec0d69ac6987d.tar.gz emacs-76fdae8549ab54bd075520134deec0d69ac6987d.tar.bz2 emacs-76fdae8549ab54bd075520134deec0d69ac6987d.zip | |
* 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.
Diffstat (limited to 'lisp/emacs-lisp/cursor-sensor.el')
| -rw-r--r-- | lisp/emacs-lisp/cursor-sensor.el | 4 |
1 files 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 |