[elpa] externals/mct 0d7d64d79a 15/64: Add in-region version of choose-completion

[ELPA Syncer]

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

    Add in-region version of choose-completion
---
 mct.el | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/mct.el b/mct.el
index 47802c14e9..7583456f2a 100644
--- a/mct.el
+++ b/mct.el
@@ -1211,6 +1211,14 @@ Meant to be added to `after-change-functions'."
 ;; the text expansion is considerably slower.  Try it on modus-themes.el
 ;; and you might as well prepare dinner while waiting.
 
+(defun mct-choose-completion-in-region ()
+  "Choose candidate at point and quit completion in region.
+This is the counterpart of `mct-choose-completion-exit' when the
+minibuffer is not active or relevant for the purposes of the
+current completion session."
+  (interactive nil mct-region-mode)
+  (when (mct--region-p)
+    (mct--completions-choose-completion)))
 ;;;###autoload
 (define-minor-mode mct-region-mode
   "Set up interactivity over the default `completion-in-region'."