branch: elpa/vcomplete
commit 0170c083a32c6d628536254b3660f7edd2a0be82
Author: Daniel Semyonov <cm...@dsemy.com>
Commit: Daniel Semyonov <cm...@dsemy.com>
Eliminate delay after Embark action from minibuffer when auto updates are on
* vcomplete.el (vcomplete-embark--eliminate-delay): New function which
is used as an advice around 'embark-act' and 'embark-default-action'
to eliminate the aforementioned delay.
(vcomplete-embark--advise-commands): New function which performs the
advising. Add to 'vcomplete-mode-hook' after loading Embark.
---
vcomplete.el | 14 ++++++++++++++
1 file changed, 14 insertions(+)
diff --git a/vcomplete.el b/vcomplete.el
index 47000b5d7a..4da1801540 100644
--- a/vcomplete.el
+++ b/vcomplete.el
@@ -278,6 +278,18 @@ completion:
(declare-function embark-target-completion-at-point "ext:embark")
(declare-function embark-completions-buffer-candidates "ext:embark")
+(defun vcomplete-embark--eliminate-delay (fun &rest args)
+ "Call FUN with ‘minibuffer-message-timeout’ locally set to ‘0’."
+ (let ((minibuffer-message-timeout 0))
+ (apply fun args)))
+
+(defun vcomplete-embark--advise-commands ()
+ "Advise Embark commands with ‘vcomplete-embark--eliminate-delay’."
+ (dolist (cmd '(embark-act embark-default-action))
+ (if vcomplete-mode
+ (advice-add cmd :around #'vcomplete-embark--eliminate-delay)
+ (advice-remove cmd #'vcomplete-embark--eliminate-delay))))
+
(defun vcomplete-embark-current-completion (&optional relative)
"Call ‘embark-target-completion-at-point’ in the ‘*Completions*’ buffer."
(when (and vcomplete-mode
@@ -293,6 +305,8 @@ completion:
(embark-completions-buffer-candidates))))
(with-eval-after-load 'embark
+ (add-hook 'vcomplete-mode-hook
+ #'vcomplete-embark--advise-commands)
(add-hook 'embark-target-finders
#'vcomplete-embark-current-completion)
(add-hook 'embark-candidate-collectors
