mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-05 19:31:02 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/emacs-lisp/comp.el (comp-known-type-specifiers): Fix a bunch of

Browse source
This commit is contained in:
Andrea Corallo 2023-06-01 15:53:39 +02:00
parent 2d6ba3e034
commit 9f5ca95ef7
1 changed files with 9 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

18
lisp/emacs-lisp/comp.el
View file

@ -317,7 +317,7 @@ 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) boolean)) (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))
@ -344,7 +344,7 @@ Useful to hook into pass checkers.")
(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) 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))))
(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))
@ -363,7 +363,7 @@ Useful to hook into pass checkers.")
(current-time-zone (function (&optional (or number list) (current-time-zone (function (&optional (or number list)
(or symbol string cons integer)) (or symbol string cons integer))
cons)) cons))
(custom-variable-p (function (symbol) boolean)) (custom-variable-p (function (symbol) t))
(decode-char (function (cons t) (or fixnum null))) (decode-char (function (cons t) (or fixnum null)))
(decode-time (function (&optional (or number list) (decode-time (function (&optional (or number list)
(or symbol string cons integer) (or symbol string cons integer)
@ -385,18 +385,18 @@ Useful to hook into pass checkers.")
(error-message-string (function (list) string)) (error-message-string (function (list) string))
(eventp (function (t) boolean)) (eventp (function (t) boolean))
(exp (function (number) float)) (exp (function (number) float))
(expt (function (number number) float)) (expt (function (number number) number))
(fboundp (function (symbol) boolean)) (fboundp (function (symbol) boolean))
(fceiling (function (float) float)) (fceiling (function (float) float))
(featurep (function (symbol &optional symbol) boolean)) (featurep (function (symbol &optional symbol) boolean))
(ffloor (function (float) float)) (ffloor (function (float) float))
(file-directory-p (function (string) boolean)) (file-directory-p (function (string) boolean))
(file-exists-p (function (string) boolean)) (file-exists-p (function (string) boolean))
(file-locked-p (function (string) boolean)) (file-locked-p (function (string) (or boolean string)))
(file-name-absolute-p (function (string) boolean)) (file-name-absolute-p (function (string) boolean))
(file-newer-than-file-p (function (string string) boolean)) (file-newer-than-file-p (function (string string) boolean))
(file-readable-p (function (string) boolean)) (file-readable-p (function (string) boolean))
(file-symlink-p (function (string) boolean)) (file-symlink-p (function (string) (or boolean string)))
(file-writable-p (function (string) boolean)) (file-writable-p (function (string) boolean))
(fixnump (function (t) boolean)) (fixnump (function (t) boolean))
(float (function (number) float)) (float (function (number) float))
@ -411,8 +411,8 @@ Useful to hook into pass checkers.")
(frame-first-window (function ((or frame window)) window)) (frame-first-window (function ((or frame window)) window))
(frame-root-window (function (&optional (or frame window)) window)) (frame-root-window (function (&optional (or frame window)) window))
(frame-selected-window (function (&optional (or frame window)) window)) (frame-selected-window (function (&optional (or frame window)) window))
(frame-visible-p (function (frame) boolean)) (frame-visible-p (function (frame) (or boolean (member icon))))
(framep (function (t) boolean)) (framep (function (t) (or boolean (member x w32 ns pc pgtk haiku))))
(fround (function (float) float)) (fround (function (float) float))
(ftruncate (function (float) float)) (ftruncate (function (float) float))
(get (function (symbol symbol) t)) (get (function (symbol symbol) t))
@ -506,7 +506,7 @@ Useful to hook into pass checkers.")
(previous-window (function (&optional window t t) window)) (previous-window (function (&optional window t t) window))
(prin1-to-string (function (t &optional t t) string)) (prin1-to-string (function (t &optional t t) string))
(processp (function (t) boolean)) (processp (function (t) boolean))
(proper-list-p (function (t) boolean)) (proper-list-p (function (t) (or fixnum null)))
(propertize (function (string &rest t) string)) (propertize (function (string &rest t) string))
(radians-to-degrees (function (number) float)) (radians-to-degrees (function (number) float))
(rassoc (function (t list) list)) (rassoc (function (t list) list))