branch: externals/consult
commit dc6e45586194cb30b3ba7614189718f3db1391c3
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
consult-completion-in-region: Return 'exact when completion is not finished
See #426
---
consult.el | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/consult.el b/consult.el
index 85d27d6..4ddff31 100644
--- a/consult.el
+++ b/consult.el
@@ -2372,7 +2372,11 @@ These configuration options are supported:
(delete-region start end)
(insert (substring-no-properties completion))
(when-let (exit (plist-get completion-extra-properties
:exit-function))
- (funcall exit completion 'finished))
+ (funcall exit completion
+ ;; If completion is finished and cannot be further
completed,
+ ;; return 'finished. Otherwise return 'exact.
+ (if (eq (try-completion completion collection
predicate) t)
+ 'finished 'exact)))
t)
(message "No completion")
nil)))))
