From a1fb07f35d2134dbdd3574329209d5dc7922ca57 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Wed, 24 Jul 2024 15:17:19 +0200 Subject: [PATCH] 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) --- 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 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) -- 2.39.2