branch: elpa/symbol-overlay commit 1071d4ac87a520c357cfb357cbc852d1965d5100 Author: ksqsf <i...@ksqsf.moe> Commit: ksqsf <i...@ksqsf.moe>
Minor improvement. --- symbol-overlay.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/symbol-overlay.el b/symbol-overlay.el index faad64b7d9..ff14ee5006 100644 --- a/symbol-overlay.el +++ b/symbol-overlay.el @@ -245,7 +245,7 @@ If EXCLUDE is non-nil, get all overlays excluding those belong to SYMBOL." (let ((value (overlay-get ov 'symbol)) (end (overlay-end ov))) (and value - (if (< dir 0) (< end (point)) t) + (or (> dir 0) (< end (point))) (or (not symbol) (if (string= value symbol) (not exclude) (and exclude (not (string= value ""))))))))