diff options
| author | Jeremy Bryant <jb@jeremybryant.net> | 2023-11-12 15:07:23 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2023-11-12 21:12:55 +0200 |
| commit | 5612fd21a05e80e5cc29d01ec2b8b9217941c4de (patch) | |
| tree | a2cc2fde45afacbae6a73332edfbe9e8bd633a85 /lisp/emacs-lisp | |
| parent | ce0ebb91f25847ebaa2745f47413df24a60f051c (diff) | |
| download | emacs-5612fd21a05e80e5cc29d01ec2b8b9217941c4de.tar.gz emacs-5612fd21a05e80e5cc29d01ec2b8b9217941c4de.tar.bz2 emacs-5612fd21a05e80e5cc29d01ec2b8b9217941c4de.zip | |
Add two doc strings to cl-extra.el
* lisp/emacs-lisp/cl-extra.el (cl--random-time)
(cl-find-class): Add docstrings. (Bug#66949)
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/cl-extra.el | 11 |
1 files 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) |