From 75a783771d8b1144cee8f3343ec97638da3bc9b0 Mon Sep 17 00:00:00 2001 From: Thierry Volpiatto Date: Wed, 22 Mar 2017 10:58:19 +0100 Subject: Use assq and memq where needed. * helm-adaptive.el (helm-adapt-use-adaptive-p): Do it. * helm-bookmark.el (helm-bookmark-image-bookmark-p): Do it. * helm-font.el (helm-source-xfonts): Do it. * helm-net.el (helm-google-suggest-parser): Do it. (helm-wikipedia--parse-summary): Do it. * helm.el (helm-initialize): Do it. (helm-get-cached-candidates): Do it. (helm-update): Do it. (helm-update-source-p): Do it. (helm-output-filter--process-source): Do it. (helm-execute-selection-action-1): Do it. (helm-file-completion-source-p): Do it. --- helm-adaptive.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'helm-adaptive.el') diff --git a/helm-adaptive.el b/helm-adaptive.el index b3d0c397..ef5f434f 100644 --- a/helm-adaptive.el +++ b/helm-adaptive.el @@ -101,7 +101,7 @@ Format: ((SOURCE-NAME (SELECTED-CANDIDATE (PATTERN . NUMBER-OF-USE) ...) ...) .. (adapt-source (or (assoc-default 'filtered-candidate-transformer source) (assoc-default 'candidate-transformer source)))) (if (listp adapt-source) - (and (member 'helm-adaptive-sort adapt-source) source) + (and (memq 'helm-adaptive-sort adapt-source) source) (and (eq adapt-source 'helm-adaptive-sort) source))))) (defun helm-adaptive-store-selection () -- cgit v1.2.3