[elpa] externals/mct ab19c21471 07/12: Streamline check for {pass, block}list

[ELPA Syncer]

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

    Streamline check for {pass,block}list
---
 mct.el | 16 +++++++++++++---
 1 file changed, 13 insertions(+), 3 deletions(-)

diff --git a/mct.el b/mct.el
index 78bfaebab2..2feeffe931 100644
--- a/mct.el
+++ b/mct.el
@@ -223,10 +223,20 @@ See `completions-format' for possible values."
        'category))))
 
 (defun mct--symbol-in-list (list)
-  "Test if symbol of command or category is in LIST."
+  "Test if command or category is in LIST."
   (or (memq (mct--this-command) list)
       (memq (mct--completion-category) list)))
 
+(defun mct--passlist-p ()
+  "Return non-nil if symbol is in the `mct-completion-passlist'."
+  (or (memq (mct--this-command) mct-completion-passlist)
+      (memq (mct--completion-category) mct-completion-passlist)))
+
+(defun mct--blocklist-p ()
+  "Return non-nil if symbol is in the `mct-completion-blocklist'."
+  (or (memq (mct--this-command) mct-completion-blocklist)
+      (memq (mct--completion-category) mct-completion-blocklist)))
+
 ;;;; Basics of intersection between minibuffer and Completions' buffer
 
 (define-obsolete-variable-alias
@@ -350,12 +360,12 @@ Meant to be added to `after-change-functions'."
   "Set up the completions' buffer."
   (cond
    ((null mct-live-completion))
-   ((mct--symbol-in-list mct-completion-passlist)
+   ((mct--passlist-p)
     (setq-local mct-minimum-input 0)
     (setq-local mct-live-update-delay 0)
     (mct--show-completions)
     (add-hook 'after-change-functions #'mct--live-completions-refresh nil t))
-   ((not (mct--symbol-in-list mct-completion-blocklist))
+   ((not (mct--blocklist-p))
     (add-hook 'after-change-functions #'mct--live-completions-refresh nil t))))
 
 (defvar-local mct--active nil