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

Add two doc strings to cl-extra.el

Browse source 
* lisp/emacs-lisp/cl-extra.el (cl--random-time)
(cl-find-class): Add docstrings.  (Bug#66949)
This commit is contained in:
Jeremy Bryant 2023-11-12 15:07:23 +00:00 • committed by Eli Zaretskii
parent ce0ebb91f2
commit 5612fd21a0
1 changed files with 9 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/emacs-lisp/cl-extra.el
View file

@ -440,7 +440,10 @@ as an integer unless JUNK-ALLOWED is non-nil."
;; Random numbers. ;; Random numbers.
(defun cl--random-time () (defun cl--random-time ()
(car (time-convert nil t))) "Return high-precision timestamp from `time-convert'.
For example, suitable for use as seed by `cl-make-random-state'."
(car (time-convert nil t)))
;;;###autoload (autoload 'cl-random-state-p "cl-extra") ;;;###autoload (autoload 'cl-random-state-p "cl-extra")
(cl-defstruct (cl--random-state (cl-defstruct (cl--random-state
@ -733,7 +736,11 @@ PROPLIST is a list of the sort returned by `symbol-plist'.
(declare-function help-fns-short-filename "help-fns" (filename)) (declare-function help-fns-short-filename "help-fns" (filename))
;;;###autoload ;;;###autoload
(defun cl-find-class (type) (cl--find-class type)) (defun cl-find-class (type)
"Return CL class of TYPE.
Call `cl--find-class' to get TYPE's propname `cl--class'"
(cl--find-class type))
;;;###autoload ;;;###autoload
(defun cl-describe-type (type) (defun cl-describe-type (type)