procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix some function type declaration

Browse source 
* lisp/window.el (get-lru-window, get-largest-window): Fix
function type declaration.
* lisp/subr.el (error): Likewise.
This commit is contained in:
Andrea Corallo 2024-07-24 15:17:19 +02:00
parent 23549d7175
commit 976416bebe
2 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/subr.el
View file

@ -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))))

4
lisp/window.el
View file

@ -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)