[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
emacs-29 5612fd21a05: Add two doc strings to cl-extra.el
From: |
Eli Zaretskii |
Subject: |
emacs-29 5612fd21a05: Add two doc strings to cl-extra.el |
Date: |
Sun, 12 Nov 2023 14:14:50 -0500 (EST) |
branch: emacs-29
commit 5612fd21a05e80e5cc29d01ec2b8b9217941c4de
Author: Jeremy Bryant <jb@jeremybryant.net>
Commit: Eli Zaretskii <eliz@gnu.org>
Add two doc strings to cl-extra.el
* lisp/emacs-lisp/cl-extra.el (cl--random-time)
(cl-find-class): Add docstrings. (Bug#66949)
---
lisp/emacs-lisp/cl-extra.el | 11 +++++++++--
1 file changed, 9 insertions(+), 2 deletions(-)
diff --git a/lisp/emacs-lisp/cl-extra.el b/lisp/emacs-lisp/cl-extra.el
index de5eb9c2d92..8ba320cdfb6 100644
--- a/lisp/emacs-lisp/cl-extra.el
+++ b/lisp/emacs-lisp/cl-extra.el
@@ -440,7 +440,10 @@ as an integer unless JUNK-ALLOWED is non-nil."
;; Random numbers.
(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")
(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))
;;;###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
(defun cl-describe-type (type)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- emacs-29 5612fd21a05: Add two doc strings to cl-extra.el,
Eli Zaretskii <=