diff options
author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2017-03-22 10:58:19 +0100 |
---|---|---|
committer | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2017-03-22 10:58:19 +0100 |
commit | 75a783771d8b1144cee8f3343ec97638da3bc9b0 (patch) | |
tree | 923d82805ff7941eb6d6b43779377069293f6ddd /helm-net.el | |
parent | f2d58e79bafe48fd554e6b422a08c97379075831 (diff) |
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.
Diffstat (limited to 'helm-net.el')
-rw-r--r-- | helm-net.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/helm-net.el b/helm-net.el index 860a8412..3f5377e8 100644 --- a/helm-net.el +++ b/helm-net.el @@ -187,7 +187,7 @@ Can be \"-new-tab\" (default) or \"-new-window\"." (point-min) (point-max))) 'CompleteSuggestion) for i in result-alist collect - (cdr (cl-caadr (assoc 'suggestion i))))) + (cdr (cl-caadr (assq 'suggestion i))))) (defun helm-google-suggest-fetch (input) "Fetch suggestions for INPUT from XML buffer." @@ -316,9 +316,9 @@ Can be \"-new-tab\" (default) or \"-new-window\"." (defun helm-wikipedia--parse-summary () (goto-char (point-min)) (when (search-forward "{" nil t) - (let ((result (cdr (assoc '* - (assoc 'text - (assoc 'parse + (let ((result (cdr (assq '* + (assq 'text + (assq 'parse (json-read-from-string (buffer-substring-no-properties (1- (point)) (point-max))))))))) |