branch: externals/mct
commit d232c964b7117385848dc261a2a0db14092a2e4e
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@protesilaos.com>
Declare commands as applicable to the region mode
---
mct.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/mct.el b/mct.el
index 323550ea32..5b774db71b 100644
--- a/mct.el
+++ b/mct.el
@@ -943,7 +943,7 @@ followed by exiting the minibuffer with that candidate."
;; `cursor-sensor-functions'.
(defun mct-beginning-of-buffer ()
"Go to the top of the Completions buffer."
- (interactive nil mct-minibuffer-mode)
+ (interactive nil mct-minibuffer-mode mct-region-mode)
(goto-char (mct--first-completion-point)))
(defun mct-keyboard-quit-dwim ()
@@ -954,7 +954,7 @@ If in a completions' buffer and unless the region is
active, run
If the region is active, deactivate it. A second invocation of
this command is then required to abort the session."
- (interactive nil mct-minibuffer-mode)
+ (interactive nil mct-minibuffer-mode mct-region-mode)
(when (derived-mode-p 'completion-list-mode)
(cond
((null (active-minibuffer-window))
