[elpa] externals/mct 8522a67 38/70: Add mct-choose-completion-no-exit command

[ELPA Syncer]

branch: externals/mct
commit 8522a67d6f117e264b943930faf798f77b2c3b81
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Add mct-choose-completion-no-exit command
---
 mct.el | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/mct.el b/mct.el
index d92f813..86f4267 100644
--- a/mct.el
+++ b/mct.el
@@ -584,6 +584,14 @@ minibuffer."
     (choose-completion)
     (minibuffer-force-complete-and-exit)))
 
+(defun mct-choose-completion-no-exit ()
+  "Run `choose-completion' in the Completions without exiting."
+  (interactive nil mct-mode)
+  (when (and (derived-mode-p 'completion-list-mode)
+             (active-minibuffer-window))
+    (let ((completion-no-auto-exit t))
+      (choose-completion))))
+
 (defvar display-line-numbers-mode)
 
 (defun mct--line-completion (n)