[elpa] externals/corfu 2af93706c1 1/2: Redisplay hack

[ELPA Syncer]

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

    Redisplay hack
---
 corfu.el | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/corfu.el b/corfu.el
index 6ee52eb147..e73413dcc5 100644
--- a/corfu.el
+++ b/corfu.el
@@ -424,7 +424,10 @@ The completion backend can override this with
       (make-frame-invisible corfu--frame))
     (set-frame-position corfu--frame x y)
     (set-frame-size corfu--frame width height t)
-    (make-frame-visible corfu--frame)))
+    (make-frame-visible corfu--frame)
+    ;; HACK: Force redisplay, otherwise the popup somtimes
+    ;; does not display content.
+    (redisplay)))
 
 (defun corfu--popup-show (pos off width lines &optional curr lo bar)
   "Show LINES as popup at POS - OFF.
@@ -1099,9 +1102,11 @@ there hasn't been any input, then quit."
   (setq corfu--auto-timer nil)
   (when (and (not completion-in-region-mode)
              (eq (current-buffer) buffer))
-    (pcase (while-no-input ;; Interruptible capf query
-             (run-hook-wrapped 'completion-at-point-functions 
#'corfu--capf-wrapper))
+    (pcase
+        (while-no-input ;; Interruptible capf query
+          (run-hook-wrapped 'completion-at-point-functions 
#'corfu--capf-wrapper))
       ((and `(,fun ,beg ,end ,table . ,plist)
+            (guard (message "XXXGOT RETURN %S %S %S" beg end (plist-get plist 
:company-prefix-length)))
             (guard (integer-or-marker-p beg))
             (guard (<= beg (point) end))
             (guard