emacs-elpa-diffs
[Top][All Lists]
Advanced

[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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]