[elpa] externals/mct aaaf12c70c 50/64: Merge branch 'main' into experiment-completion-in-region

[ELPA Syncer]

branch: externals/mct
commit aaaf12c70c5b67a21d5b33f0745a7570091a5ebc
Merge: bf0f666ee4 81b3c3afda
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Merge branch 'main' into experiment-completion-in-region
---
 mct.el | 23 +++++++++++++----------
 1 file changed, 13 insertions(+), 10 deletions(-)

diff --git a/mct.el b/mct.el
index 9bbf513d9e..63314426e8 100644
--- a/mct.el
+++ b/mct.el
@@ -220,16 +220,19 @@ See `completions-format' for possible values."
 (defun mct--setup-clean-completions ()
   "Keep only completion candidates in the Completions."
   (with-current-buffer standard-output
-    (let ((inhibit-read-only t))
-      (goto-char (point-min))
-      (delete-region (point-at-bol) (1+ (point-at-eol)))
-      (insert (propertize " "
-                          'cursor-sensor-functions
-                          (list
-                           (lambda (_win prev dir)
-                             (when (eq dir 'entered)
-                               (goto-char prev))))))
-      (put-text-property (point-min) (point) 'invisible t))))
+    (if (>= emacs-major-version 29)   ; TODO 2021-12-29: maybe use 28?
+        (goto-char (mct--first-completion-point))
+      (goto-char (point-min)))
+    (unless (mct--completions-completion-p)
+      (let ((inhibit-read-only t))
+        (delete-region (point-at-bol) (1+ (point-at-eol)))
+        (insert (propertize " "
+                            'cursor-sensor-functions
+                            (list
+                             (lambda (_win prev dir)
+                               (when (eq dir 'entered)
+                                 (goto-char prev))))))
+        (put-text-property (point-min) (point) 'invisible t)))))
 
 (defun mct--fit-completions-window (&rest _args)
   "Fit Completions' buffer to its window."