branch: externals/consult
commit af7f94a24f581e45ae57110b53f27868fd905037
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
Fix consult--default-completion-list-candidate
---
consult.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/consult.el b/consult.el
index a7aeac60a4..dc918a163d 100644
--- a/consult.el
+++ b/consult.el
@@ -4745,7 +4745,8 @@ automatically previewed."
(setq end (1- (point)) beg (point)))))
(setq beg (previous-single-property-change beg 'mouse-face)
end (or (next-single-property-change end 'mouse-face) (point-max)))
- (buffer-substring-no-properties beg end))))
+ (or (get-text-property beg 'completion--string)
+ (buffer-substring-no-properties beg end)))))
;; Announce now that consult has been loaded
(provide 'consult)
