[elpa] externals/consult dc6e455 2/2: consult-completion-in-region: Return 'exact when completion is not finished

[ELPA Syncer]

branch: externals/consult
commit dc6e45586194cb30b3ba7614189718f3db1391c3
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@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)))))