[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 76fdae8: * lisp/emacs-lisp/cursor-sensor.el: Fix se
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] master 76fdae8: * lisp/emacs-lisp/cursor-sensor.el: Fix sensor behavior with overlays |
Date: |
Fri, 8 Mar 2019 17:21:03 -0500 (EST) |
branch: master
commit 76fdae8549ab54bd075520134deec0d69ac6987d
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>
* 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 a21d789..66b940f 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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 76fdae8: * lisp/emacs-lisp/cursor-sensor.el: Fix sensor behavior with overlays,
Stefan Monnier <=