From: Andrea Corallo <acorallo@gnu.org>
Date: Wed, 24 Jul 2024 13:17:19 +0000 (+0200)
Subject: Fix some function type declaration
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a1fb07f35d2134dbdd3574329209d5dc7922ca57;p=emacs.git

Fix some function type declaration

* lisp/window.el (get-lru-window, get-largest-window): Fix
function type declaration.
* lisp/subr.el (error): Likewise.

(cherry picked from commit 976416bebe278a7cf65ab58b1918c9c27e3a09bd)
---

diff --git a/lisp/subr.el b/lisp/subr.el
index 1d21c012d49..7822286ef46 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 decb98ff501..3d9cdc64184 100644
--- a/lisp/window.el
+++ b/lisp/window.el
@@ -2514,7 +2514,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)
@@ -2594,7 +2594,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)