summaryrefslogtreecommitdiff
path: root/extensions/corfu-popupinfo.el
diff options
context:
space:
mode:
authorDaniel Mendler <mail@daniel-mendler.de>2025-12-20 18:39:36 +0100
committerDaniel Mendler <mail@daniel-mendler.de>2025-12-20 18:39:36 +0100
commit2514504aa108f2bdf96152d8ddd7197034a20f5b (patch)
tree59a5b87bfb5d3a2224a75f30033575e03acebd17 /extensions/corfu-popupinfo.el
parent40df1ba9d060f2c0be2cb0e17620ecb572ef8da3 (diff)
corfu-popupinfo: Fix margin quirk
Diffstat (limited to 'extensions/corfu-popupinfo.el')
-rw-r--r--extensions/corfu-popupinfo.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/extensions/corfu-popupinfo.el b/extensions/corfu-popupinfo.el
index 48ba909..537c98c 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))))))))