summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDaniel Mendler <mail@daniel-mendler.de>2025-12-13 11:43:49 +0100
committerDaniel Mendler <mail@daniel-mendler.de>2025-12-13 11:43:49 +0100
commit2d44537b114de38c4b94df203fe362c77930d46f (patch)
tree883d9882cfc7e0cdc3da0b77393c433c448d08ed
parenta86427e6ba4c1daa1ee0fe6c36f5333a7fba704a (diff)
Use set-frame-size-and-position-pixelwise
-rw-r--r--corfu.el9
1 files changed, 3 insertions, 6 deletions
diff --git a/corfu.el b/corfu.el
index 0cd7f74..674b842 100644
--- a/corfu.el
+++ b/corfu.el
@@ -539,13 +539,10 @@ FRAME is the existing frame."
(pcase-let ((`(,px . ,py) (frame-position frame)))
(cond
((and (= x px) (= y py)) (set-frame-size frame width height t))
- ;; NOTE: Experimental new Emacs 31 addition by Martin Rudalics. The API
- ;; is still fluctuating.
+ ;; NOTE: Experimental new Emacs 31 addition by Martin Rudalics.
;; https://lists.gnu.org/archive/html/emacs-devel/2025-11/msg00322.html
- ((fboundp 'set-frame-position-and-size)
- (set-frame-position-and-size frame x y width height t))
- ((fboundp 'set-frame-size-and-position-internal)
- (set-frame-size-and-position-internal frame width height x y 1))
+ ((fboundp 'set-frame-size-and-position-pixelwise)
+ (set-frame-size-and-position-pixelwise frame width height x y))
(t (set-frame-size frame width height t)
(set-frame-position frame x y)))))
(make-frame-visible frame)