aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/emacs-lisp/seq.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/seq.el b/lisp/emacs-lisp/seq.el
index 5c89d2b3007..2b4330c1a3c 100644
--- a/lisp/emacs-lisp/seq.el
+++ b/lisp/emacs-lisp/seq.el
@@ -479,7 +479,7 @@ If no element is found, return nil."
479 479
480(cl-defgeneric seq-random-elt (sequence) 480(cl-defgeneric seq-random-elt (sequence)
481 "Return a random element from SEQUENCE. 481 "Return a random element from SEQUENCE.
482Return nil if SEQUENCE is nil." 482Signal an error if SEQUENCE is empty."
483 (if (seq-empty-p sequence) 483 (if (seq-empty-p sequence)
484 (error "Sequence cannot be empty") 484 (error "Sequence cannot be empty")
485 (seq-elt sequence (random (seq-length sequence))))) 485 (seq-elt sequence (random (seq-length sequence)))))