[nongnu] elpa/vcomplete 336cfaad33 68/91: Remove unnecessary (while-no-input (redisplay) ...) block

[ELPA Syncer]

branch: elpa/vcomplete
commit 336cfaad33d6dd63297a81ad9f064255993833d8
Author: Daniel Semyonov <daniel@dsemy.com>
Commit: Daniel Semyonov <daniel@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."