branch: externals/consult
commit 051f51811d90fcab49e1eac7c78bee86e440ea01
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
Revert "Shorter variable names"
This reverts commit 5a265feacf4bcb3f1e3ab9fa3b90685344751c18.
---
README.org | 4 ++--
consult.el | 21 +++++++++------------
2 files changed, 11 insertions(+), 14 deletions(-)
diff --git a/README.org b/README.org
index 339a523ec8..3b9c28b1ff 100644
--- a/README.org
+++ b/README.org
@@ -906,8 +906,8 @@ an overview of all Consult variables and functions with
their descriptions.
| Variable | Description
|
|----------------------------------+-------------------------------------------------------|
| consult-after-jump-hook | Functions to call after jumping to a
location |
-| consult-async-debounce | Input debounce for asynchronous commands
|
-| consult-async-throttle | Input throttle for asynchronous commands
|
+| consult-async-input-debounce | Input debounce for asynchronous commands
|
+| consult-async-input-throttle | Input throttle for asynchronous commands
|
| consult-async-min-input | Minimum numbers of letters needed for
async process |
| consult-async-refresh-delay | Refresh delay for asynchronous commands
|
| consult-async-split-style | Splitting style used for async commands
|
diff --git a/consult.el b/consult.el
index 5435da85bb..278082d5d2 100644
--- a/consult.el
+++ b/consult.el
@@ -102,22 +102,19 @@ seconds. This applies to asynchronous commands like for
example
`consult-grep'."
:type 'float)
-(define-obsolete-variable-alias 'consult-async-input-debounce
'consult-async-debounce "0.31")
-(define-obsolete-variable-alias 'consult-async-input-throttle
'consult-async-throttle "0.31")
-
-(defcustom consult-async-throttle 0.4
+(defcustom consult-async-input-throttle 0.4
"Input throttle for asynchronous commands.
The asynchronous process is started only every
-`consult-async-throttle' seconds. This applies to asynchronous
+`consult-async-input-throttle' seconds. This applies to asynchronous
commands, e.g., `consult-grep'."
:type 'float)
-(defcustom consult-async-debounce 0.2
+(defcustom consult-async-input-debounce 0.2
"Input debounce for asynchronous commands.
The asynchronous process is started only when there has not been new
-input for `consult-async-debounce' seconds. This applies to
+input for `consult-async-input-debounce' seconds. This applies to
asynchronous commands, e.g., `consult-grep'."
:type 'float)
@@ -2100,10 +2097,10 @@ BUILDER is the command line builder function."
(defun consult--async-throttle (async &optional throttle debounce)
"Create async function from ASYNC which throttles input.
-The THROTTLE delay defaults to `consult-async-throttle'.
-The DEBOUNCE delay defaults to `consult-async-debounce'."
- (setq throttle (or throttle consult-async-throttle)
- debounce (or debounce consult-async-debounce))
+The THROTTLE delay defaults to `consult-async-input-throttle'.
+The DEBOUNCE delay defaults to `consult-async-input-debounce'."
+ (setq throttle (or throttle consult-async-input-throttle)
+ debounce (or debounce consult-async-input-debounce))
(let ((input "") last timer)
(lambda (action)
(pcase action
@@ -2183,7 +2180,7 @@ ASYNC is the sink.
FUN computes the candidates given the input.
DEBOUNCE is the time after which an interrupted computation
should be restarted."
- (setq debounce (or debounce consult-async-debounce))
+ (setq debounce (or debounce consult-async-input-debounce))
(setq async (consult--async-indicator async))
(let* ((request) (current) (timer)
(cancel (lambda () (when timer (cancel-timer timer) (setq timer
nil))))
