branch: elpa/vcomplete commit 336cfaad33d6dd63297a81ad9f064255993833d8 Author: Daniel Semyonov <dan...@dsemy.com> Commit: Daniel Semyonov <dan...@dsemy.com>
Remove unnecessary (while-no-input (redisplay) ...) block * vcomplete.el (vcomplete--highlight-completion-at-point): Don't wrap in a (while-no-input (redisplay) ...) block, as testing shows this is unnecessary. --- vcomplete.el | 18 ++++++++---------- 1 file changed, 8 insertions(+), 10 deletions(-) diff --git a/vcomplete.el b/vcomplete.el index ddd1305833..984b05550c 100644 --- a/vcomplete.el +++ b/vcomplete.el @@ -170,16 +170,14 @@ isn't a completion list buffer." (defun vcomplete--highlight-completion-at-point () "Highlight the completion at point in the `*Completions*' buffer." - (while-no-input - (redisplay) - (let ((cur (vcomplete-current-completion (point)))) - (when vcomplete--last-completion-overlay - (delete-overlay vcomplete--last-completion-overlay)) - (when-let ((pos (cdr cur))) - (overlay-put - (setq vcomplete--last-completion-overlay - (make-overlay (car pos) (cdr pos))) - 'face 'vcomplete-highlight))))) + (let ((cur (vcomplete-current-completion (point)))) + (when vcomplete--last-completion-overlay + (delete-overlay vcomplete--last-completion-overlay)) + (when-let ((pos (cdr cur))) + (overlay-put + (setq vcomplete--last-completion-overlay + (make-overlay (car pos) (cdr pos))) + 'face 'vcomplete-highlight)))) (defun vcomplete--move-n-completions (n) "Move N completions in the `*Completions*' buffer."