diff options
author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2015-03-20 16:19:20 +0100 |
---|---|---|
committer | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2015-03-20 16:19:20 +0100 |
commit | 800e4b81f294619adb307226c45edd0fe0c9f264 (patch) | |
tree | 761e9f969a89e1c27d3bdc566cba81338329144c /helm-info.el | |
parent | 3a7b067588b1560986f5c9e5d76f6e9b21db8b43 (diff) |
* helm-info.el (helm-build-info-index-command): Get rid of eval.
Diffstat (limited to 'helm-info.el')
-rw-r--r-- | helm-info.el | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/helm-info.el b/helm-info.el index e284a079..8f38cadb 100644 --- a/helm-info.el +++ b/helm-info.el @@ -85,12 +85,13 @@ "Define an helm command NAME with documentation DOC. Arg SOURCE will be an existing helm source named `helm-source-info-<NAME>' and BUFFER a string buffer name." - (eval (list 'defun name nil doc - (list 'interactive) - (list 'helm - :sources source - :buffer buffer - :candidate-number-limit 1000)))) + (defalias (intern (concat "helm-info-" name)) + (lambda () + (interactive) + (helm :sources source + :buffer buffer + :candidate-number-limit 1000)) + doc)) (defun helm-define-info-index-sources (var-value &optional commands) "Define helm sources named helm-source-info-<NAME>. @@ -101,10 +102,9 @@ Where NAME is one of `helm-default-info-index-list'." 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))))) + do (helm-build-info-index-command + str (format "Predefined helm for %s info." str) + sym (format "*helm info %s*" str)))) (defun helm-info-index-set (var value) (set var value) |