[elpa] externals/corfu-doc f83307a233 09/95: Update doc frame when corfu frame coordinates changed

[ELPA Syncer]

branch: externals/corfu-doc
commit f83307a233ee4028a11121c61aef6a5889a31587
Author: Yuwei Tian <ibluefocus@outlook.com>
Commit: Yuwei Tian <ibluefocus@outlook.com>

    Update doc frame when corfu frame coordinates changed
---
 corfu-doc.el | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/corfu-doc.el b/corfu-doc.el
index 27ee83f984..0436a1eb65 100644
--- a/corfu-doc.el
+++ b/corfu-doc.el
@@ -82,6 +82,9 @@
 (defvar-local corfu-doc--candidate nil
   "Completion candidate to show doc for.")
 
+(defvar-local corfu-doc--cf-frame-edges nil
+  "Coordinates of the corfu frame's edges.")
+
 ;; Function adapted from corfu.el by Daniel Mendler
 (defun corfu-doc--redirect-focus ()
   "Redirect focus from doc."
@@ -242,12 +245,14 @@
 
 (defun corfu-doc--show ()
   (let ((candidate (and (> corfu--total 0)
-                        (nth corfu--index corfu--candidates))))
+                        (nth corfu--index corfu--candidates)))
+        (cf-frame-edges (frame-edges corfu--frame 'inner)))
     (if candidate
-        (when-let* ((corfu-on (and (fboundp 'corfu-mode) corfu-mode))
-                    (f-v-p (frame-visible-p corfu--frame)))
+        (when (and (and (fboundp 'corfu-mode) corfu-mode)
+                   (frame-visible-p corfu--frame))
           (unless (and (string= corfu-doc--candidate candidate)
                        (frame-visible-p corfu-doc--frame)
+                       (equal cf-frame-edges corfu-doc--cf-frame-edges)
                        (eq (selected-window) corfu-doc--window))
             ;; show doc frame
             (when-let* ((doc (ignore-errors (corfu-doc-fetch-documentation))))
@@ -255,6 +260,7 @@
                       ,@(corfu-doc--calculate-doc-frame-position) ,doc)))))
       (corfu-doc--hide))
     (setq corfu-doc--candidate candidate)
+    (setq corfu-doc--cf-frame-edges cf-frame-edges)
     (setq corfu-doc--window (selected-window))))
 
 (defun corfu-doc--hide ()