branch: externals/embark
commit 2890e535f55b1f08f379fd761b263fa337a72185
Author: Omar Antolín <[email protected]>
Commit: Omar Antolín <[email protected]>
Use completion--string if available (fix #485)
---
embark.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/embark.el b/embark.el
index adb89cf232..a07dd26e6f 100644
--- a/embark.el
+++ b/embark.el
@@ -972,7 +972,8 @@ their own target finder. See for example
(setq beg (previous-single-property-change beg 'mouse-face))
(setq end (or (next-single-property-change end 'mouse-face)
(point-max)))
- (let ((raw (buffer-substring beg end)))
+ (let ((raw (or (get-text-property beg 'completion--string)
+ (buffer-substring beg end))))
`(,embark--type
,(if (eq embark--type 'file)
(abbreviate-file-name (expand-file-name raw))
