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."
