summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorThierry Volpiatto <thierry.volpiatto@gmail.com>2018-11-19 21:38:15 +0100
committerThierry Volpiatto <thierry.volpiatto@gmail.com>2018-11-19 21:38:15 +0100
commitbd2225b6ab3ef9809a551a5631b6edd71344ccc3 (patch)
tree0ca10435a8e2311badacd6883dcad5b4f7c82d73
parent84a59b1e47528221dcb746058f95a6faffe4a5ae (diff)
No need to check if sources are symbols
* helm.el (helm-sources): Fix docstring. (helm-help): Do it.
-rw-r--r--helm.el9
1 files changed, 4 insertions, 5 deletions
diff --git a/helm.el b/helm.el
index 9a4c9c7d..2e8741fc 100644
--- a/helm.el
+++ b/helm.el
@@ -1335,7 +1335,9 @@ to modify it.")
(defvar helm-saved-selection nil
"Value of the currently selected object when the action list is shown.")
(defvar helm-sources nil
- "[INTERNAL] Value of current sources in use, a list.")
+ "[INTERNAL] Value of current sources in use, a list of alists.
+The list of sources (symbols or alists) is normalized to alists in
+`helm-initialize'.")
(defvar helm-buffer-file-name nil
"Variable `buffer-file-name' when `helm' is invoked.")
(defvar helm-candidate-cache (make-hash-table :test 'equal)
@@ -6746,10 +6748,7 @@ The global `helm-help-message' is always added after this local help."
(helm-comp-read
"Help for: "
(cl-loop for src in (with-helm-buffer helm-sources)
- for src-val = (if (symbolp src)
- (symbol-value src)
- src)
- collect `(,(assoc-default 'name src-val) .
+ collect `(,(assoc-default 'name src) .
,src))
:allow-nest t
:exec-when-only-one t))))