branch: externals/corfu
commit 30185aa634803f4effa18fe451983a9847202960
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
Use set-frame-size-and-position-internal if available
---
corfu.el | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/corfu.el b/corfu.el
index 9ede4ed770..0cd7f741e4 100644
--- a/corfu.el
+++ b/corfu.el
@@ -539,10 +539,13 @@ 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
+ ;; NOTE: Experimental new Emacs 31 addition by Martin Rudalics. The API
+ ;; is still fluctuating.
;; 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))
(t (set-frame-size frame width height t)
(set-frame-position frame x y)))))
(make-frame-visible frame)
