diff options
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) |