branch: externals/mct
commit 8522a67d6f117e264b943930faf798f77b2c3b81
Author: Protesilaos Stavrou <[email protected]>
Commit: Protesilaos Stavrou <[email protected]>
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)
