[elpa] externals/mct 1313880 56/70: Placate the compiler for group motions

[ELPA Syncer]

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

    Placate the compiler for group motions
    
    Thanks to James Cash for the contribution in merge request 2:
    <https://gitlab.com/protesilaos/mct/-/merge_requests/2>.
---
 mct.el | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/mct.el b/mct.el
index 8bbff09..d36695c 100644
--- a/mct.el
+++ b/mct.el
@@ -574,6 +574,11 @@ minibuffer."
             (line-move-to-column col)))
       (previous-completion (if (natnump arg) arg 1))))))
 
+(declare-function text-property-search-backward "text-property-search" 
(property &optional value predicate not-current))
+(declare-function text-property-search-forward "text-property-search" 
(property &optional value predicate not-current))
+(declare-function prop-match-beginning "text-property-search" (cl-x))
+(declare-function prop-match-end "text-property-search" (cl-x))
+
 (defun mct-next-completion-group (&optional arg)
   "Move to the next completion group.
 If ARG is supplied, move that many completion groups at a time."
@@ -594,7 +599,7 @@ If ARG is supplied, move that many completion groups at a 
time."
   (interactive "p" mct-mode)
   (dotimes (_ (or arg 1))
     ;; skip back, so if we're at the top of a group, we go to the previous 
one...
-    (next-line -1)
+    (forward-line -1)
     (if-let (group (save-excursion
                      (text-property-search-backward 'face
                                                     
'completions-group-separator
@@ -605,7 +610,7 @@ If ARG is supplied, move that many completion groups at a 
time."
             (next-completion 1)))
       ;; ...and if there was a match, go back down, so the point doesn't
       ;; end in the group separator
-      (next-line 1))))
+      (forward-line 1))))
 
 ;;;;; Candidate selection
 
@@ -693,6 +698,7 @@ Completions' buffer."
           (mct--line-number-selection)))))
 
 (defvar crm-completion-table)
+(defvar crm-separator)
 
 (defun mct--regex-to-separator (regex)
   (save-match-data