[elpa] externals/mct 9c715f5744 2/3: Simplify mct-next-completion-or-mini

[ELPA Syncer]

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

    Simplify mct-next-completion-or-mini
---
 mct.el | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

diff --git a/mct.el b/mct.el
index 392d4633f8..36d7052e7e 100644
--- a/mct.el
+++ b/mct.el
@@ -745,12 +745,9 @@ when point can no longer move in that direction it 
switches to
 the minibuffer."
   (interactive "p" mct-minibuffer-mode)
   (let ((count (or arg 1)))
-    (cond
-     ((mct--bottom-of-completions-p count)
-      (mct-focus-minibuffer))
-     (t
-      (mct--next-completion count))
-     (setq this-command 'next-line))))
+    (if (mct--bottom-of-completions-p count)
+        (mct-focus-minibuffer)
+      (mct--next-completion count))))
 
 (defun mct--motion-below-point-min-p (arg)
   "Return non-nil if backward ARG motion exceeds `point-min'."