branch: externals/corfu
commit 2514504aa108f2bdf96152d8ddd7197034a20f5b
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
corfu-popupinfo: Fix margin quirk
---
extensions/corfu-popupinfo.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/extensions/corfu-popupinfo.el b/extensions/corfu-popupinfo.el
index 48ba9099fc..537c98c8b7 100644
--- a/extensions/corfu-popupinfo.el
+++ b/extensions/corfu-popupinfo.el
@@ -383,7 +383,7 @@ form (X Y WIDTH HEIGHT DIR)."
(cons
(- (frame-pixel-width corfu-popupinfo--frame) border
border)
(- (frame-pixel-height corfu-popupinfo--frame)
border border)))))
- (margin-quirk (not (frame-live-p
corfu-popupinfo--frame))))
+ (old-frame corfu-popupinfo--frame))
(with-current-buffer corfu-popupinfo--buffer
(setq corfu-popupinfo--frame
(corfu--make-frame corfu-popupinfo--frame
@@ -395,7 +395,7 @@ form (X Y WIDTH HEIGHT DIR)."
;; XXX HACK: Force margin update. For some reason, the call to
;; `set-window-buffer' in `corfu--make-frame' is not effective the
;; first time. Why does Emacs have all these quirks?
- (when margin-quirk
+ (unless (eq old-frame corfu-popupinfo--frame)
(set-window-buffer (frame-root-window corfu-popupinfo--frame)
corfu-popupinfo--buffer))))))))
