* lisp/emacs-lisp/comp.el (comp-known-type-specifiers): Fix line lengths

This commit is contained in:
Andrea Corallo 2023-06-04 11:07:38 +02:00
parent fe91af936d
commit ac1532a7c9

View file

@ -307,7 +307,8 @@ Useful to hook into pass checkers.")
(bignump (function (t) boolean)) (bignump (function (t) boolean))
(bobp (function () boolean)) (bobp (function () boolean))
(bolp (function () boolean)) (bolp (function () boolean))
(bool-vector-count-consecutive (function (bool-vector boolean integer) fixnum)) (bool-vector-count-consecutive
(function (bool-vector boolean integer) fixnum))
(bool-vector-count-population (function (bool-vector) fixnum)) (bool-vector-count-population (function (bool-vector) fixnum))
(bool-vector-not (function (bool-vector &optional bool-vector) bool-vector)) (bool-vector-not (function (bool-vector &optional bool-vector) bool-vector))
(bool-vector-p (function (t) boolean)) (bool-vector-p (function (t) boolean))
@ -317,10 +318,12 @@ Useful to hook into pass checkers.")
(buffer-file-name (function (&optional buffer) (or string null))) (buffer-file-name (function (&optional buffer) (or string null)))
(buffer-list (function (&optional frame) list)) (buffer-list (function (&optional frame) list))
(buffer-local-variables (function (&optional buffer) list)) (buffer-local-variables (function (&optional buffer) list))
(buffer-modified-p (function (&optional buffer) (or boolean (member autosaved)))) (buffer-modified-p
(function (&optional buffer) (or boolean (member autosaved))))
(buffer-size (function (&optional buffer) integer)) (buffer-size (function (&optional buffer) integer))
(buffer-string (function () string)) (buffer-string (function () string))
(buffer-substring (function ((or integer marker) (or integer marker)) string)) (buffer-substring
(function ((or integer marker) (or integer marker)) string))
(bufferp (function (t) boolean)) (bufferp (function (t) boolean))
(byte-code-function-p (function (t) boolean)) (byte-code-function-p (function (t) boolean))
(capitalize (function (or integer string) (or integer string))) (capitalize (function (or integer string) (or integer string)))
@ -340,17 +343,27 @@ Useful to hook into pass checkers.")
(characterp (function (t &optional t) boolean)) (characterp (function (t &optional t) boolean))
(charsetp (function (t) boolean)) (charsetp (function (t) boolean))
(commandp (function (t &optional t) boolean)) (commandp (function (t &optional t) boolean))
(compare-strings (function (string (or integer marker null) (or integer marker null) string (or integer marker null) (or integer marker null) &optional t) (or (member t) fixnum))) (compare-strings
(function (string (or integer marker null) (or integer marker null) string
(or integer marker null) (or integer marker null)
&optional t)
(or (member t) fixnum)))
(concat (function (&rest sequence) string)) (concat (function (&rest sequence) string))
(cons (function (t t) cons)) (cons (function (t t) cons))
(consp (function (t) boolean)) (consp (function (t) boolean))
(coordinates-in-window-p (function (cons window) (or cons null (member bottom-divider right-divider mode-line header-line tab-line left-fringe right-fringe vertical-line left-margin right-margin)))) (coordinates-in-window-p
(function (cons window)
(or cons null
(member bottom-divider right-divider mode-line header-line
tab-line left-fringe right-fringe vertical-line
left-margin right-margin))))
(copy-alist (function (list) list)) (copy-alist (function (list) list))
(copy-marker (function (&optional (or integer marker) boolean) marker)) (copy-marker (function (&optional (or integer marker) boolean) marker))
(copy-sequence (function (sequence) sequence)) (copy-sequence (function (sequence) sequence))
(copysign (function (float float) float)) (copysign (function (float float) float))
(cos (function (number) float)) (cos (function (number) float))
(count-lines (function ((or integer marker) (or integer marker) &optional t) integer)) (count-lines
(function ((or integer marker) (or integer marker) &optional t) integer))
(current-buffer (function () buffer)) (current-buffer (function () buffer))
(current-global-map (function () cons)) (current-global-map (function () cons))
(current-indentation (function () integer)) (current-indentation (function () integer))
@ -372,7 +385,8 @@ Useful to hook into pass checkers.")
(default-boundp (function (symbol) boolean)) (default-boundp (function (symbol) boolean))
(default-value (function (symbol) t)) (default-value (function (symbol) t))
(degrees-to-radians (function (number) float)) (degrees-to-radians (function (number) float))
(documentation (function ((or function symbol subr) &optional t) (or null string))) (documentation
(function ((or function symbol subr) &optional t) (or null string)))
(downcase (function ((or fixnum string)) (or fixnum string))) (downcase (function ((or fixnum string)) (or fixnum string)))
(elt (function (sequence integer) t)) (elt (function (sequence integer) t))
(encode-char (function (fixnum symbol) (or fixnum null))) (encode-char (function (fixnum symbol) (or fixnum null)))
@ -417,7 +431,9 @@ Useful to hook into pass checkers.")
(ftruncate (function (float) float)) (ftruncate (function (float) float))
(get (function (symbol symbol) t)) (get (function (symbol symbol) t))
(get-buffer (function ((or buffer string)) (or buffer null))) (get-buffer (function ((or buffer string)) (or buffer null)))
(get-buffer-window (function (&optional (or buffer string) (or symbol (integer 0 0))) (or null window))) (get-buffer-window
(function (&optional (or buffer string) (or symbol (integer 0 0)))
(or null window)))
(get-file-buffer (function (string) (or null buffer))) (get-file-buffer (function (string) (or null buffer)))
(get-largest-window (function (&optional t t t) (or window null))) (get-largest-window (function (&optional t t t) (or window null)))
(get-lru-window (function (&optional t t t) (or window null))) (get-lru-window (function (&optional t t t) (or window null)))
@ -462,7 +478,10 @@ Useful to hook into pass checkers.")
(logxor (function (&rest (or integer marker)) integer)) (logxor (function (&rest (or integer marker)) integer))
;; (lsh (function ((integer ,most-negative-fixnum *) integer) integer)) ? ;; (lsh (function ((integer ,most-negative-fixnum *) integer) integer)) ?
(lsh (function (integer integer) integer)) (lsh (function (integer integer) integer))
(make-byte-code (function ((or fixnum list) string vector integer &optional string t &rest t) vector)) (make-byte-code
(function ((or fixnum list) string vector integer &optional string t
&rest t)
vector))
(make-list (function (integer t) list)) (make-list (function (integer t) list))
(make-marker (function () marker)) (make-marker (function () marker))
(make-string (function (integer fixnum &optional t) string)) (make-string (function (integer fixnum &optional t) string))
@ -480,7 +499,9 @@ Useful to hook into pass checkers.")
(min (function ((or number marker) &rest (or number marker)) number)) (min (function ((or number marker) &rest (or number marker)) number))
(minibuffer-selected-window (function () (or window null))) (minibuffer-selected-window (function () (or window null)))
(minibuffer-window (function (&optional frame) window)) (minibuffer-window (function (&optional frame) window))
(mod (function ((or number marker) (or number marker)) (or (integer 0 *) (float 0 *)))) (mod
(function ((or number marker) (or number marker))
(or (integer 0 *) (float 0 *))))
(mouse-movement-p (function (t) boolean)) (mouse-movement-p (function (t) boolean))
(multibyte-char-to-unibyte (function (fixnum) fixnum)) (multibyte-char-to-unibyte (function (fixnum) fixnum))
(natnump (function (t) boolean)) (natnump (function (t) boolean))
@ -544,7 +565,8 @@ Useful to hook into pass checkers.")
(string= (function ((or string symbol) (or string symbol)) boolean)) (string= (function ((or string symbol) (or string symbol)) boolean))
(stringp (function (t) boolean)) (stringp (function (t) boolean))
(subrp (function (t) boolean)) (subrp (function (t) boolean))
(substring (function ((or string vector) &optional integer integer) (or string vector))) (substring
(function ((or string vector) &optional integer integer) (or string vector)))
(sxhash (function (t) integer)) (sxhash (function (t) integer))
(sxhash-eq (function (t) integer)) (sxhash-eq (function (t) integer))
(sxhash-eql (function (t) integer)) (sxhash-eql (function (t) integer))