branch: externals/consult
commit 917cdd86cce06d74235ba0084422341b860e1569
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
Add reference to feature request bug#74408
---
consult.el | 3 +--
1 file changed, 1 insertion(+), 2 deletions(-)
diff --git a/consult.el b/consult.el
index 3ae8c5d431..5b810403a5 100644
--- a/consult.el
+++ b/consult.el
@@ -5166,11 +5166,10 @@ automatically previewed."
(defun consult--default-completion-list-candidate ()
"Return current candidate at point from completions buffer."
+ ;; See feature request bug#74408 for `completion-list-candidate-at-point'.
(let (beg)
(when (and
(derived-mode-p 'completion-list-mode)
- ;; Logic taken from `choose-completion'.
- ;; TODO Upstream a `completion-list-get-candidate' function.
(cond
((and (not (eobp)) (get-text-property (point) 'completion--string))
(setq beg (1+ (point))))
