branch: externals/ivy-hydra
commit 48e56daadeb8dd9e19bd4b13217e7ab276b25239
Author: Basil L. Contovounesios <[email protected]>
Commit: Basil L. Contovounesios <[email protected]>
Extend :type of counsel-async-command-delay
* counsel.el (counsel-async-command-delay): Remove redundant :group
tag. Support both integer and floating point values.
(counsel--async-command): Use zerop accordingly.
Re: #2556.
---
counsel.el | 7 +++----
1 file changed, 3 insertions(+), 4 deletions(-)
diff --git a/counsel.el b/counsel.el
index b304e14..a3d1332 100644
--- a/counsel.el
+++ b/counsel.el
@@ -231,17 +231,16 @@ respectively."
(set-process-filter proc (or filter #'counsel--async-filter))
proc))
-(defcustom counsel-async-command-delay 0.0
+(defcustom counsel-async-command-delay 0
"Number of seconds to wait before spawning another async command."
- :type 'float
- :group 'counsel)
+ :type 'number)
(defun counsel--async-command (&rest args)
"Like `counsel--async-command-1', with same ARGS, but debounced.
Calls to `counsel--async-command-1' are separated by at least
`counsel-async-command-delay' seconds, so as to avoid issues
caused by spawning too many subprocesses too quickly."
- (if (= counsel-async-command-delay 0.0)
+ (if (zerop counsel-async-command-delay)
(apply #'counsel--async-command-1 args)
(when counsel--async-timer
(cancel-timer counsel--async-timer))
