[elpa] externals/mct 4c11755 2/2: Fix how a non-completion line is identified

[ELPA Syncer]

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

    Fix how a non-completion line is identified
    
    This should work as before, though it should also fix up/down navigation
    in 'describe-symbol' (and related) when (i) the Completions' buffer is
    in grid view, and (ii) the completions-detailed is non-nil.
---
 mct.el | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/mct.el b/mct.el
index 47428b8..99ea637 100644
--- a/mct.el
+++ b/mct.el
@@ -496,7 +496,7 @@ a `one-column' value."
   "Check if ARGth line has a completion candidate."
   (save-excursion
     (vertical-motion arg)
-    (get-text-property (point) 'completion--string)))
+    (eq 'completions-group-separator (get-text-property (point) 'face))))
 
 (defun mct--switch-to-completions ()
   "Subroutine for switching to the completions' buffer."
@@ -564,13 +564,13 @@ minibuffer."
         ;; Retaining the column number ensures that things work
         ;; intuitively in a grid view.
         (let ((col (current-column)))
-          ;; The `unless' is meant to skip past lines that do not
+          ;; The `when' is meant to skip past lines that do not
           ;; contain completion candidates, such as those with
           ;; `completions-group-format'.
-          (unless (mct--completions-no-completion-line-p (or arg 1))
+          (when (mct--completions-no-completion-line-p (or arg 1))
             (if arg
-                (setq arg (1+ arg))
-              (setq arg 2)))
+                (setq arg 2)
+              (setq arg (1+ arg))))
           (vertical-motion (or arg 1))
           (unless (eq col (save-excursion (goto-char (point-at-bol)) 
(current-column)))
             (line-move-to-column col))
@@ -601,13 +601,13 @@ minibuffer."
         ;; Retaining the column number ensures that things work
         ;; intuitively in a grid view.
         (let ((col (current-column)))
-          ;; The `unless' is meant to skip past lines that do not
+          ;; The `when' is meant to skip past lines that do not
           ;; contain completion candidates, such as those with
           ;; `completions-group-format'.
-          (unless (mct--completions-no-completion-line-p (or (- arg) -1))
+          (when (mct--completions-no-completion-line-p (or (- arg) -1))
             (if arg
-                (setq arg (1+ arg))
-              (setq arg 2)))
+                (setq arg 2)
+              (setq arg (1+ arg))))
           (vertical-motion (or (- arg) -1))
           (unless (eq col (save-excursion (goto-char (point-at-bol)) 
(current-column)))
             (line-move-to-column col))