[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/helm de290829fd 3/5: Make customize command displaying cus
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/helm de290829fd 3/5: Make customize command displaying custom buffer even |
Date: |
Sat, 9 Jul 2022 12:58:40 -0400 (EDT) |
branch: elpa/helm
commit de290829fdd35b0bd384e3b7dce0a1b7440b05fc
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>
Make customize command displaying custom buffer even
when helm-buffer is empty.
---
helm-core.el | 10 +++++++++-
1 file changed, 9 insertions(+), 1 deletion(-)
diff --git a/helm-core.el b/helm-core.el
index 196cbaf892..31b403fef9 100644
--- a/helm-core.el
+++ b/helm-core.el
@@ -308,7 +308,15 @@ and vectors, so don't use strings to define them."
Default to Helm group when group is not defined in source."
(interactive)
- (helm-run-after-exit 'helm-customize-group-1 (helm-get-attr 'group)))
+ (let ((source (or (helm-get-current-source)
+ (helm-comp-read
+ "Customize variables for: "
+ (cl-loop for src in (with-helm-buffer helm-sources)
+ collect `(,(assoc-default 'name src) .
+ ,src))
+ :allow-nest t
+ :exec-when-only-one t))))
+ (helm-run-after-exit 'helm-customize-group-1 (helm-get-attr 'group
source))))
(put 'helm-customize-group 'helm-only t)
(defun helm--action-at-nth-set-fn-1 (value &optional negative)