branch: externals/consult commit c47d7f77a0ae0ca9669bb10308f3817da2486b64 Author: Daniel Mendler <m...@daniel-mendler.de> Commit: Daniel Mendler <m...@daniel-mendler.de>
consult--completion-refresh-hook: Remove RESET argument This argument was a remnant from `consult-completing-read-multiple' which has been removed. --- consult-icomplete.el | 6 +++--- consult-vertico.el | 9 ++------- 2 files changed, 5 insertions(+), 10 deletions(-) diff --git a/consult-icomplete.el b/consult-icomplete.el index 2092e4bee0..4dcf2c1316 100644 --- a/consult-icomplete.el +++ b/consult-icomplete.el @@ -27,14 +27,14 @@ (require 'consult) (require 'icomplete) -(defun consult-icomplete--refresh (&optional reset) - "Refresh icomplete view, keep current candidate unless RESET is non-nil." +(defun consult-icomplete--refresh () + "Refresh icomplete view." (when icomplete-mode (let ((top (car completion-all-sorted-completions))) (completion--flush-all-sorted-completions) ;; force flushing, otherwise narrowing is broken! (setq completion-all-sorted-completions nil) - (when (and top (not reset)) + (when top (let* ((completions (completion-all-sorted-completions)) (last (last completions)) (before)) ;; completions before top diff --git a/consult-vertico.el b/consult-vertico.el index 55b8c8fa9a..79eb08f3c5 100644 --- a/consult-vertico.el +++ b/consult-vertico.el @@ -28,8 +28,6 @@ ;; NOTE: It is not guaranteed that Vertico is available during compilation! (defvar vertico--input) -(defvar vertico--history-hash) -(defvar vertico--lock-candidate) (declare-function vertico--exhibit "ext:vertico") (declare-function vertico--candidate "ext:vertico") (declare-function vertico--all-completions "ext:vertico") @@ -38,13 +36,10 @@ "Return current candidate for Consult preview." (and vertico--input (vertico--candidate 'highlight))) -(defun consult-vertico--refresh (&optional reset) - "Refresh completion UI, keep current candidate unless RESET is non-nil." +(defun consult-vertico--refresh () + "Refresh completion UI." (when vertico--input (setq vertico--input t) - (when reset - (setq vertico--history-hash nil - vertico--lock-candidate nil)) (vertico--exhibit))) (defun consult-vertico--filter-adv (orig pattern cands category highlight)