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