[elpa] externals/corfu 6f74b67552: HACK: Work around suspected Emacs 29 regression

[ELPA Syncer]

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

    HACK: Work around suspected Emacs 29 regression
    
    Is it possible that frames can have a dead root window?! Unfortunately I 
don't
    know how I managed to trigger the situation where (frame-live-p frame) 
returned
    t and (window-live-p (frame-root-window frame)) returned nil.
---
 corfu.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/corfu.el b/corfu.el
index 3a7b82c03a..3fcee9c994 100644
--- a/corfu.el
+++ b/corfu.el
@@ -386,7 +386,11 @@ FRAME is the existing frame."
              'resize-mode)))
          (after-make-frame-functions)
          (parent (window-frame)))
-    (unless (and (frame-live-p frame) (eq (frame-parent frame) parent))
+    (unless (and (frame-live-p frame)
+                 (eq (frame-parent frame) parent)
+                 ;; XXX HACK: It seems the frame can be alive but have a dead 
window?
+                 ;; Is this a Emacs 29 regression?
+                 (window-live-p (frame-root-window frame)))
       (when frame (delete-frame frame))
       (setq frame (make-frame
                    `((parent-frame . ,parent)