From 072ff9986dd5693ca468ff217288a587abf59c03 Mon Sep 17 00:00:00 2001 From: Jeremy Bryant Date: Sun, 5 Nov 2023 12:24:48 +0000 Subject: [PATCH] * lisp/emacs-lisp/cl-extra.el: Add two docstrings (cl--random-time) (cl-find-class): Add docstrings --- lisp/emacs-lisp/cl-extra.el | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/lisp/emacs-lisp/cl-extra.el b/lisp/emacs-lisp/cl-extra.el index 8c35c344d7d..454076eb3f0 100644 --- a/lisp/emacs-lisp/cl-extra.el +++ b/lisp/emacs-lisp/cl-extra.el @@ -440,7 +440,11 @@ cl-parse-integer ;; Random numbers. -(defun cl--random-time () (car (time-convert nil t))) +(defun cl--random-time () + "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") (cl-defstruct (cl--random-state @@ -734,6 +738,9 @@ 'cl-type-definition ;;;###autoload (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 -- 2.40.1