branch: externals/corfu
commit b82f1dbdd11aa97d787dddfbdeacf280a14f7c6f
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
Simplify corfu-docframe
---
extensions/corfu-docframe.el | 16 +++++++---------
1 file changed, 7 insertions(+), 9 deletions(-)
diff --git a/extensions/corfu-docframe.el b/extensions/corfu-docframe.el
index dac7284b27..b6701744dd 100644
--- a/extensions/corfu-docframe.el
+++ b/extensions/corfu-docframe.el
@@ -329,13 +329,12 @@ it should be compared with the value recorded by
`corfu--index'."
(nth corfu--index corfu--candidates))))
(if (not candidate)
(corfu-docframe--hide)
- (let ((should-update-doc-p
- (not (and (corfu-docframe--visible-p)
- (equal candidate corfu-docframe--candidate))))
- ;; check if the coordinates of the corfu popup have changed
- (cfp-edges-changed-p
- (not (equal (frame-edges corfu--frame 'inner-edges)
- corfu-docframe--edges))))
+ (let* ((should-update-doc-p
+ (not (and (corfu-docframe--visible-p)
+ (equal candidate corfu-docframe--candidate))))
+ ;; check if the coordinates of the corfu popup have changed
+ (new-edges (frame-edges corfu--frame 'inner-edges))
+ (cfp-edges-changed-p (not (equal new-edges
corfu-docframe--edges))))
(when should-update-doc-p
(if-let* ((doc (corfu-docframe--get-doc)))
;; turn on word wrap and hide fringe indicators
@@ -368,8 +367,7 @@ it should be compared with the value recorded by
`corfu--index'."
(get-buffer " *corfu-docframe*"))
corfu-docframe--direction area-d)))
(setq corfu-docframe--candidate candidate
- corfu-docframe--edges
- (frame-edges corfu--frame 'inner-edges))))))
+ corfu-docframe--edges new-edges)))))
(defun corfu-docframe--hide ()
"Clear the doc popup buffer content and hide it."
