emacs-30 976416bebe2: Fix some function type declaration

[Andrea Corallo]

branch: emacs-30
commit 976416bebe278a7cf65ab58b1918c9c27e3a09bd
Author: Andrea Corallo <acorallo@gnu.org>
Commit: Andrea Corallo <acorallo@gnu.org>

    Fix some function type declaration
    
    * lisp/window.el (get-lru-window, get-largest-window): Fix
    function type declaration.
    * lisp/subr.el (error): Likewise.
---
 lisp/subr.el   | 2 +-
 lisp/window.el | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/lisp/subr.el b/lisp/subr.el
index 5a4ef38c3fe..b382fa9f771 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -481,7 +481,7 @@ for the sake of consistency.
 
 To alter the look of the displayed error messages, you can use
 the `command-error-function' variable."
-  (declare (ftype (function (string &rest t) nil))
+  (declare (ftype (function (&rest t) nil))
            (advertised-calling-convention (string &rest args) "23.1"))
   (signal 'error (list (apply #'format-message args))))
 
diff --git a/lisp/window.el b/lisp/window.el
index 60040f18bc7..006cfa19525 100644
--- a/lisp/window.el
+++ b/lisp/window.el
@@ -2515,7 +2515,7 @@ have special meanings:
 
 Any other value of ALL-FRAMES means consider all windows on the
 selected frame and no others."
-  (declare (ftype (function (&optional t t t) (or window null)))
+  (declare (ftype (function (&optional t t t t) (or window null)))
            (side-effect-free error-free))
   (let ((windows (window-list-1 nil 'nomini all-frames))
         best-window best-time second-best-window second-best-time time)
@@ -2595,7 +2595,7 @@ have special meanings:
 
 Any other value of ALL-FRAMES means consider all windows on the
 selected frame and no others."
-  (declare (ftype (function (&optional t t t) (or window null)))
+  (declare (ftype (function (&optional t t t t) (or window null)))
            (side-effect-free error-free))
   (let ((best-size 0)
        best-window size)