branch: externals/mct
commit 3deaa120e06ea60ba87fadb5bfe97dff76b9ae57
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@protesilaos.com>
Fix highlighting for completions-format
---
mct.el | 10 ++++++++--
1 file changed, 8 insertions(+), 2 deletions(-)
diff --git a/mct.el b/mct.el
index f35bc813ee..fa784ec8cf 100644
--- a/mct.el
+++ b/mct.el
@@ -420,8 +420,14 @@ Apply APP by first setting up the minibuffer to work with
Mct."
;; We need this to make things work on Emacs 27.
(defun mct--one-column-p ()
"Test if we have a one-column view available."
- (and (eq mct-completions-format 'one-column)
- (>= emacs-major-version 28)))
+ (cond
+ ;; FIXME 2022-01-19: Avoid duplication?
+ ((mct--region-p)
+ (and (eq mct-region-completions-format 'one-column)
+ (>= emacs-major-version 28)))
+ ((mct--minibuffer-p)
+ (and (eq mct-completions-format 'one-column)
+ (>= emacs-major-version 28)))))
;;;;; Focus minibuffer and/or show completions
