diff options
author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2015-03-20 16:00:51 +0100 |
---|---|---|
committer | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2015-03-20 16:00:51 +0100 |
commit | 3a7b067588b1560986f5c9e5d76f6e9b21db8b43 (patch) | |
tree | e8c6af858052fc266104c1b5fc1cb51a7d0526e0 /helm-info.el | |
parent | 945c4909f7cb7c6046d64b0bb80c0d656f2ce844 (diff) |
* helm-info.el (helm-define-info-index-sources): No need to loop twice.
Diffstat (limited to 'helm-info.el')
-rw-r--r-- | helm-info.el | 19 |
1 files changed, 8 insertions, 11 deletions
diff --git a/helm-info.el b/helm-info.el index ef6b159d..e284a079 100644 --- a/helm-info.el +++ b/helm-info.el @@ -97,17 +97,14 @@ Arg SOURCE will be an existing helm source named Sources are generated for all entries of `helm-default-info-index-list'. If COMMANDS arg is non--nil build also commands named `helm-info<NAME>'. Where NAME is one of `helm-default-info-index-list'." - (cl-loop with symbols = (cl-loop for str in var-value - collect - (intern (concat "helm-source-info-" str))) - for sym in symbols - for str in var-value - do (set sym (helm-build-info-source str)) - when commands - do (let ((com (intern (concat "helm-info-" str)))) - (helm-build-info-index-command - com (format "Predefined helm for %s info." str) - sym (format "*helm info %s*" str))))) + (cl-loop for str in var-value + for sym = (intern (concat "helm-source-info-" str)) + do (set sym (helm-build-info-source str)) + when commands + do (let ((com (intern (concat "helm-info-" str)))) + (helm-build-info-index-command + com (format "Predefined helm for %s info." str) + sym (format "*helm info %s*" str))))) (defun helm-info-index-set (var value) (set var value) |