Fix some function type declaration

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

diff --git a/lisp/subr.el b/lisp/subr.el
index 5a4ef38c3fe7f12e15a50f0c26463752538fc003..b382fa9f7718f6708930ef4ade0148075eacae69 100644 (file)
--- 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 60040f18bc7eee0db91ca1def6b40348e1a1af2c..006cfa19525c032f86ad27329c9cbdadae61b0fa 100644 (file)
--- 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)