branch: elpa/helm
commit 9a637b9f02c5a9f77fe480db102c932fa9cd3e66
Author: Thierry Volpiatto <[email protected]>
Commit: Thierry Volpiatto <[email protected]>
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
