emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/symbol-overlay ab9ca20024 1/5: Fix get overlays when point


From: ELPA Syncer
Subject: [nongnu] elpa/symbol-overlay ab9ca20024 1/5: Fix get overlays when point is at end of symbol
Date: Tue, 17 Jan 2023 08:00:23 -0500 (EST)

branch: elpa/symbol-overlay
commit ab9ca200243735824e74b4c83b34018cc351d25a
Author: 我没有抓狂 <blindingdark@outlook.com>
Commit: GitHub <noreply@github.com>

    Fix get overlays when point is at end of symbol
---
 symbol-overlay.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/symbol-overlay.el b/symbol-overlay.el
index ff14ee5006..701a3d7262 100644
--- a/symbol-overlay.el
+++ b/symbol-overlay.el
@@ -239,7 +239,9 @@ If EXCLUDE is non-nil, get all overlays excluding those 
belong to SYMBOL."
   (if (= dir 0)
       (overlays-in (point-min) (point-max))
     (let ((overlays (cond ((< dir 0) (overlays-in (point-min) (point)))
-                          ((> dir 0) (overlays-in (point) (point-max))))))
+                          ((> dir 0) (overlays-in 
+                                      (if (looking-at-p "\\_>") (1- (point)) 
(point))
+                                      (point-max))))))
       (seq-filter
        (lambda (ov)
          (let ((value (overlay-get ov 'symbol))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]