ld/avy
1
0
Fork 0
mirror of https://github.com/abo-abo/avy.git synced 2025-10-13 05:23:05 +00:00
Code Issues Packages Projects Releases Wiki Activity

avy.el (avy--overlay): Avoid error on empty string

Browse Source 
Fixes #351
Fixes #352
This commit is contained in:
David J. Rosenbaum 2022-06-02 16:15:08 -07:00 committed by Oleh Krehel
parent 6f9eefadc9
commit 955c8dedd6
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
avy.el
View File

@ -1019,10 +1019,11 @@ COMPOSE-FN is a lambda that concatenates the old string at BEG with STR."
(os-line-prefix (get-text-property 0 'line-prefix old-str)) (os-line-prefix (get-text-property 0 'line-prefix old-str))
(os-wrap-prefix (get-text-property 0 'wrap-prefix old-str)) (os-wrap-prefix (get-text-property 0 'wrap-prefix old-str))
other-ol) other-ol)
(unless (= (length str) 0)
(when os-line-prefix (when os-line-prefix
(add-text-properties 0 1 `(line-prefix ,os-line-prefix) str)) (add-text-properties 0 1 `(line-prefix ,os-line-prefix) str))
(when os-wrap-prefix (when os-wrap-prefix
(add-text-properties 0 1 `(wrap-prefix ,os-wrap-prefix) str)) (add-text-properties 0 1 `(wrap-prefix ,os-wrap-prefix) str)))
(when (setq other-ol (cl-find-if (when (setq other-ol (cl-find-if
(lambda (o) (overlay-get o 'goto-address)) (lambda (o) (overlay-get o 'goto-address))
(overlays-at beg))) (overlays-at beg)))