branch: externals/corfu
commit a0fd22225bdb5088d6d3775d6ee6be6f43dbd37d
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
Use completion-try-completion for TAB completion check
---
corfu.el | 5 +----
1 file changed, 1 insertion(+), 4 deletions(-)
diff --git a/corfu.el b/corfu.el
index 96770bf..caf0528 100644
--- a/corfu.el
+++ b/corfu.el
@@ -728,10 +728,7 @@ A scroll bar is displayed from LO to LO+BAR."
;; completion is possible and the current string is a valid match, exit
;; with status 'finished.
((and (memq this-command '(corfu-complete completion-at-point))
- ;; XXX We should probably use `completion-try-completion' here
instead
- ;; but it does not work as well when completing in `shell-mode'.
- ;; (not (consp (completion-try-completion str table pred pt
metadata)))
- (not (stringp (try-completion str table pred)))
+ (not (consp (completion-try-completion str table pred pt
corfu--metadata)))
(test-completion str table pred))
(corfu--done str 'finished))
;; 4) There are no candidates & corfu-quit-no-match => Confirmation popup
