[elpa] externals/corfu-doc 78032cf8e2 91/95: Revert "Inline the function to get coordinates of the corfu popup"

[ELPA Syncer]

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

    Revert "Inline the function to get coordinates of the corfu popup"
    
    This reverts commit caccd9475783cfc12ab5c49d44b6ca7535e84a4a.
    
    Fix #18
---
 corfu-doc.el | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/corfu-doc.el b/corfu-doc.el
index 25a1da627b..b159df7b2a 100644
--- a/corfu-doc.el
+++ b/corfu-doc.el
@@ -388,6 +388,10 @@ FWIDTH and FHEIGHT."
   (and (> corfu--total 0)
        (nth corfu--index corfu--candidates)))
 
+(defun corfu-doc--get-cf-popup-edges ()
+  "Get coordinates of the corfu popup."
+  (frame-edges corfu--frame 'inner))
+
 (defun corfu-doc--should-refresh-popup (candidate)
   "Determine whether the doc popup should be refreshed.
 
@@ -407,7 +411,7 @@ compared with the value recorded by `corfu-doc--candiate'."
            (corfu-doc--calc-popup-position
             (frame-pixel-width corfu-doc--frame)
             (frame-pixel-height corfu-doc--frame)))
-    (setq corfu-doc--cf-popup-edges (frame-edges corfu--frame 'inner))))
+    (setq corfu-doc--cf-popup-edges (corfu-doc--get-cf-popup-edges))))
 
 (defun corfu-doc--update-popup (doc)
   "Update the documentation popup with the DOC content."
@@ -439,7 +443,7 @@ The optional CANDIDATE-INDEX is the the current completion 
candidate index."
     (error "Corfu-doc requires child frames to display documentation"))
   (when (corfu-doc--should-show-popup candidate-index)
     (when-let ((candidate (corfu-doc--get-candidate))
-               (cf-popup-edges (frame-edges corfu--frame 'inner)))
+               (cf-popup-edges (corfu-doc--get-cf-popup-edges)))
       (if (corfu-doc--should-refresh-popup candidate)
           (corfu-doc--refresh-popup)
         ;; fetch documentation and show
@@ -497,7 +501,7 @@ The optional CANDIDATE-INDEX is the the current completion 
candidate index."
 
 (defun corfu-doc--cf-popup-edges-changed-p ()
   "Determine whether the coordinates of the corfu popup have changed."
-  (not (equal (frame-edges corfu--frame 'inner)
+  (not (equal (corfu-doc--get-cf-popup-edges)
               corfu-doc--cf-popup-edges)))
 
 (defun corfu-doc--popup-transition ()