branch: elpa/helm
commit 4636f16e6aeb6bf8c8f158a73ed65bd649b5679d
Author: AlexK <ambula...@gmail.com>
Commit: AlexK <ambula...@gmail.com>
"while-no-input" on/off by defcustom "helm-update-edebug" for edebug.
---
helm-core.el | 13 +++++++++++--
1 file changed, 11 insertions(+), 2 deletions(-)
diff --git a/helm-core.el b/helm-core.el
index f633c282f1..252c1f29cb 100644
--- a/helm-core.el
+++ b/helm-core.el
@@ -1122,6 +1122,14 @@ You can toggle later `truncate-lines' with
Set this to an empty string if you don't want prefix in margin when marking."
:group 'helm
:type 'string)
+
+(defcustom 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."
+ :group 'helm
+ :type 'boolean)
;;; Faces
;;
@@ -4959,8 +4967,9 @@ Unlike `while-no-input' this macro ensure to not returns
`t'."
(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"
