[elpa] externals/consult 126a5cb 1/2: consult-completion-in-region: Always use 'finished exit status

[ELPA Syncer]

branch: externals/consult
commit 126a5cb9e16cb080d26a584ddd9b2b2a3ea075c3
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    consult-completion-in-region: Always use 'finished exit status
    
    The use of sole didn't seem correct. However the question is if
    'exact should be used sometimes to prevent insertion of space.
    See #426.
---
 consult.el | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/consult.el b/consult.el
index 755ac74..85d27d6 100644
--- a/consult.el
+++ b/consult.el
@@ -2316,13 +2316,11 @@ These configuration options are supported:
         (completion--in-region start end collection predicate)
       (let* ((limit (car (completion-boundaries initial collection predicate 
"")))
              (category (completion-metadata-get metadata 'category))
-             (exit-status 'finished)
              (buffer (current-buffer))
              (completion
               (cond
                ((atom all) nil)
                ((and (consp all) (atom (cdr all)))
-                (setq exit-status 'sole)
                 (concat (substring initial 0 limit) (car all)))
                (t (car
                    (consult--with-preview
@@ -2374,7 +2372,7 @@ 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 exit-status))
+                (funcall exit completion 'finished))
               t)
           (message "No completion")
           nil)))))