[elpa] externals/corfu 0449f05b61 2/2: It seems (redisplay 'force) is needed

[ELPA Syncer]

branch: externals/corfu
commit 0449f05b61ded82eab8eaa98bbdc8d5cf9554d49
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    It seems (redisplay 'force) is needed
---
 corfu.el | 14 +++-----------
 1 file changed, 3 insertions(+), 11 deletions(-)

diff --git a/corfu.el b/corfu.el
index b2685de543..84ead7abd9 100644
--- a/corfu.el
+++ b/corfu.el
@@ -434,22 +434,14 @@ The completion backend can override this with
         ;; XXX HACK Avoid flicker when frame is already visible.
         ;; Redisplay, wait for resize and then move the frame.
         (unless (equal (frame-position corfu--frame) (cons x y))
-          (redisplay)
+          (redisplay 'force)
           (sleep-for 0.01)
           (set-frame-position corfu--frame x y))
       ;; XXX HACK: Force redisplay, otherwise the popup sometimes does not 
display content.
       (set-frame-position corfu--frame x y)
-      (redisplay)
+      (redisplay 'force)
       (make-frame-visible corfu--frame))
-    ;; XXX HACK: Force redisplay, otherwise the popup sometimes does not 
display content.
-    (run-at-time 0.01 nil
-                 (lambda ()
-                   (with-current-buffer buffer
-                     (let ((inhibit-read-only t))
-                       (goto-char (point-min))
-                       (insert "please redisplay")
-                       (delete-region (point-min) (point))))
-                   (redisplay)))))
+    (redisplay 'force)))
 
 (defun corfu--popup-show (pos off width lines &optional curr lo bar)
   "Show LINES as popup at POS - OFF.