bug#66949: [PATCH] * lisp/emacs-lisp/cl-extra.el: Add two docstrings

[Jeremy Bryant via "Bug reports for GNU Emacs, the Swiss army knife of text editors" <bug-gnu-emacs@gnu.org>]

[-- Attachment #1: Type: text/plain, Size: 245 bytes --]

Tags: patch

Hi,

Here is a proposed patch to add two docstrings where there were none.  I
believe this fits the conventions, otherwise please let me know what is
needed.  The patch is attached for install for your consideration.

Best,
Jeremy


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: 0001-lisp-emacs-lisp-cl-extra.el-Add-two-docstrings.patch --]
[-- Type: text/patch, Size: 1174 bytes --]

From 072ff9986dd5693ca468ff217288a587abf59c03 Mon Sep 17 00:00:00 2001
From: Jeremy Bryant <jb@jeremybryant.net>
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