branch: elpa/helm
commit 519fed0012966fa1ffac1f9ecd2208aa65993527
Merge: eae4f5a24a 0221822de2
Author: Thierry Volpiatto <thie...@posteo.net>
Commit: GitHub <nore...@github.com>
Merge pull request #2649 from karbiv/while-no-input_edebug_dev_fix
"while-no-input" on/off by defcustom "helm-update-edebug" for edebug.
---
helm-core.el | 11 +++++++++--
1 file changed, 9 insertions(+), 2 deletions(-)
diff --git a/helm-core.el b/helm-core.el
index f633c282f1..9f64e5e4a8 100644
--- a/helm-core.el
+++ b/helm-core.el
@@ -4956,11 +4956,18 @@ Unlike `while-no-input' this macro ensure to not
returns `t'."
(quit-flag nil)
(t val)))))))
+(defvar helm-update-edebug nil
+ "Development feature.
+If set to true then all functions invoked after `helm-update' can be
instrumented by
+`edebug' for stepping. `helm--maybe-use-while-no-input' then doesn't use
`while-no-input',
+because `while-no-input' throws on `edebug' command key input.")
+
(defmacro helm--maybe-use-while-no-input (&rest body)
"Wrap BODY in `helm-while-no-input' unless initializing a remote connection."
`(progn
- (if (and (file-remote-p helm-pattern)
- (not (file-remote-p helm-pattern nil t)))
+ (if (or (and (file-remote-p helm-pattern)
+ (not (file-remote-p helm-pattern nil t)))
+ helm-update-edebug)
;; Tramp will ask for passwd, don't use `helm-while-no-input'.
,@body
(helm-log "helm--maybe-use-while-no-input"
