[nongnu] elpa/eat 29a6ab9141: Fix byte-compilation warnings on Emacs 28

[ELPA Syncer]

branch: elpa/eat
commit 29a6ab914110b2842438c0244d365239a878ebba
Author: Akib Azmain Turja <akib@disroot.org>
Commit: Akib Azmain Turja <akib@disroot.org>

    Fix byte-compilation warnings on Emacs 28
    
    * eat.el (eat-term-input-event): Fix byte-compilation warnings
    on Emacs 28, caused by calling 'posn-col-row' with two
    arguments on Emacs >= 29, which is not available on Emacs 28.
---
 eat.el | 26 ++++++++++++++++++--------
 1 file changed, 18 insertions(+), 8 deletions(-)

diff --git a/eat.el b/eat.el
index 0a1c5c1191..56c511d459 100644
--- a/eat.el
+++ b/eat.el
@@ -3320,7 +3320,9 @@ client process may get confused."
                          (event-start mouse)))
                   (x-y (if (< emacs-major-version 29)
                            (posn-col-row pos)
-                         (posn-col-row pos 'use-window)))
+                         (with-suppressed-warnings
+                             ((callargs posn-col-row))
+                           (posn-col-row pos 'use-window))))
                   (x (1+ (car x-y)))
                   (y (1+ (cdr x-y)))
                   (button
@@ -3335,9 +3337,12 @@ client process may get confused."
                        (cl-incf b 16))
                      b)))
              (when ref-pos
-               (let ((ref-x-y (if (< emacs-major-version 29)
-                                  (posn-col-row ref-pos)
-                                (posn-col-row ref-pos 'use-window))))
+               (let ((ref-x-y
+                      (if (< emacs-major-version 29)
+                          (posn-col-row ref-pos)
+                        (with-suppressed-warnings
+                            ((callargs posn-col-row))
+                          (posn-col-row ref-pos 'use-window)))))
                  (cl-decf x (car ref-x-y))
                  (cl-decf y (cdr ref-x-y))))
              (when (and (<= 1 x (eat--t-disp-width disp))
@@ -3413,7 +3418,9 @@ client process may get confused."
            (let* ((pos (event-start movement))
                   (x-y (if (< emacs-major-version 29)
                            (posn-col-row pos)
-                         (posn-col-row pos 'use-window)))
+                         (with-suppressed-warnings
+                             ((callargs posn-col-row))
+                           (posn-col-row pos 'use-window))))
                   (x (1+ (car x-y)))
                   (y (1+ (cdr x-y)))
                   (button
@@ -3422,9 +3429,12 @@ client process may get confused."
                           32)
                      35)))
              (when ref-pos
-               (let ((ref-x-y (if (< emacs-major-version 29)
-                                  (posn-col-row ref-pos)
-                                (posn-col-row ref-pos 'use-window))))
+               (let ((ref-x-y
+                      (if (< emacs-major-version 29)
+                          (posn-col-row ref-pos)
+                        (with-suppressed-warnings
+                            ((callargs posn-col-row))
+                          (posn-col-row ref-pos 'use-window)))))
                  (cl-decf x (car ref-x-y))
                  (cl-decf y (cdr ref-x-y))))
              (when (and (or (eq (eat--t-term-mouse-mode terminal)