branch: externals/mct
commit 01edefb5a6ba41f5a191400fa2e21ae2222a43f8
Author: Philip Kaludercic <phil...@posteo.net>
Commit: Protesilaos Stavrou <i...@protesilaos.com>
Use memq instead of member where applicable
---
mct.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/mct.el b/mct.el
index acbbfaf..09e0f10 100644
--- a/mct.el
+++ b/mct.el
@@ -277,14 +277,14 @@ Meant to be added to `after-change-functions'."
(defun mct--setup-completions ()
"Set up the completions' buffer."
(cond
- ((member this-command mct-completion-passlist)
+ ((memq this-command mct-completion-passlist)
(setq-local mct-minimum-input 0)
(setq-local mct-live-update-delay 0)
(mct--show-completions)
(add-hook 'after-change-functions #'mct--live-completions nil t))
((null mct-live-completion))
- ((unless (member this-command mct-completion-blocklist)
- (add-hook 'after-change-functions #'mct--live-completions-timer nil
t)))))
+ ((not (memq this-command mct-completion-blocklist))
+ (add-hook 'after-change-functions #'mct--live-completions-timer nil t))))
;;;;; Alternating backgrounds (else "stripes")
