Use set-frame-size-and-position-internal if available

1 files changed, 4 insertions, 1 deletions

diff --git a/corfu.el b/corfu.el
index 9ede4ed..0cd7f74 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)