diff options
| -rw-r--r-- | lisp/emacs-lisp/seq.el | 2 |
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. |
| 482 | Return nil if SEQUENCE is nil." | 482 | Signal 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))))) |