[nongnu] elpa/helm 9a637b9f02 1/7: Set helm-only directly in make command macros

[ELPA Syncer]

branch: elpa/helm
commit 9a637b9f02c5a9f77fe480db102c932fa9cd3e66
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>

    Set helm-only directly in make command macros
---
 helm-core.el | 26 +++++++++++++++-----------
 1 file changed, 15 insertions(+), 11 deletions(-)

diff --git a/helm-core.el b/helm-core.el
index c5f1ea700b..911f1615bc 100644
--- a/helm-core.el
+++ b/helm-core.el
@@ -2126,21 +2126,25 @@ End:")
 The command SYMBOL will quit helm before execute.
 Argument ACTION should be an existing helm action."
   (declare (indent defun) (debug t))
-  `(defun ,symbol ()
-     ,doc
-     (interactive)
-     (with-helm-alive-p
-       (helm-exit-and-execute-action ,action))))
+  `(progn
+     (defun ,symbol ()
+       ,doc
+       (interactive)
+       (with-helm-alive-p
+         (helm-exit-and-execute-action ,action)))
+     (put ',symbol 'helm-only t)))
 
 (defmacro helm-make-persistent-command-from-action (symbol doc psymbol action)
   "Make a persistent command SYMBOL bound to PSYMBOL from ACTION."
   (declare (indent defun) (debug t))
-  `(defun ,symbol ()
-     ,doc
-     (interactive)
-     (with-helm-alive-p
-       (helm-set-attr ,psymbol (cons ,action 'never-split))
-       (helm-execute-persistent-action ,psymbol))))
+  `(progn
+     (defun ,symbol ()
+       ,doc
+       (interactive)
+       (with-helm-alive-p
+         (helm-set-attr ,psymbol (cons ,action 'never-split))
+         (helm-execute-persistent-action ,psymbol)))
+     (put ',symbol 'helm-only t)))
 
 
 ;;; helm-attributes