branch: externals/seq
commit 7f076d2237b6c29184212b8c695786610f4686dc
Author: Nicolas Petton <[email protected]>
Commit: Stefan Monnier <[email protected]>
Fix seq-random-elt docstring
* packages/seq/seq-24.el:
* packages/seq/seq-25.el (seq-random-elt): Fix the docstring.
---
seq-24.el | 2 +-
seq-25.el | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/seq-24.el b/seq-24.el
index 09fbf04680..3f9cd8887f 100644
--- a/seq-24.el
+++ b/seq-24.el
@@ -373,7 +373,7 @@ SEQUENCE must be a sequence of numbers or markers."
(defun seq-random-elt (sequence)
"Return a random element from SEQUENCE.
-Return nil if SEQUENCE is nil."
+Signal an error if SEQUENCE is empty."
(if (seq-empty-p sequence)
(error "Sequence cannot be empty")
(seq-elt sequence (random (seq-length sequence)))))
diff --git a/seq-25.el b/seq-25.el
index f1282a17e1..c2268dddff 100644
--- a/seq-25.el
+++ b/seq-25.el
@@ -496,7 +496,7 @@ If no element is found, return nil."
(cl-defgeneric seq-random-elt (sequence)
"Return a random element from SEQUENCE.
-Return nil if SEQUENCE is nil."
+Signal an error if SEQUENCE is empty."
(if (seq-empty-p sequence)
(error "Sequence cannot be empty")
(seq-elt sequence (random (seq-length sequence)))))
