branch: externals/corfu
commit fb799537a1e37bf3740a7f4f04eb90c08a02b8d8
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
Formatting
---
extensions/corfu-popupinfo.el | 9 ++++-----
1 file changed, 4 insertions(+), 5 deletions(-)
diff --git a/extensions/corfu-popupinfo.el b/extensions/corfu-popupinfo.el
index dcd6ce41a4a..afe8179adf8 100644
--- a/extensions/corfu-popupinfo.el
+++ b/extensions/corfu-popupinfo.el
@@ -374,14 +374,13 @@ form (X Y WIDTH HEIGHT DIR)."
(corfu-popupinfo--hide)
(setq cand-changed nil geo-changed nil)))
(when (or cand-changed geo-changed)
- (pcase-let* ((`(,area-x ,area-y ,area-w ,area-h ,area-d)
+ (pcase-let* ((old-frame corfu-popupinfo--frame)
+ (`(,area-x ,area-y ,area-w ,area-h ,area-d)
(corfu-popupinfo--area
(if cand-changed
(corfu-popupinfo--compute-size)
- (let ((last (frame-parameter corfu-popupinfo--frame
- 'corfu--geometry)))
- (cons (nth 2 last) (nth 3 last))))))
- (old-frame corfu-popupinfo--frame))
+ (let ((old (frame-parameter old-frame
'corfu--geometry)))
+ (cons (nth 2 old) (nth 3 old)))))))
(setq corfu-popupinfo--frame
(with-current-buffer corfu-popupinfo--buffer
(corfu--make-frame corfu-popupinfo--frame
