diff options
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/seq.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/emacs-lisp/seq.el b/lisp/emacs-lisp/seq.el index 4b50a0a9b7b..e0f17c0335d 100644 --- a/lisp/emacs-lisp/seq.el +++ b/lisp/emacs-lisp/seq.el @@ -270,18 +270,18 @@ If so, return the non-nil value returned by PRED." (throw 'seq--break result)))) nil)) -(cl-defgeneric seq-find (pred seq &optional sentinel) +(cl-defgeneric seq-find (pred seq &optional default) "Return the first element for which (PRED element) is non-nil in SEQ. -If no element is found, return SENTINEL or nil. +If no element is found, return DEFAULT. -Note that `seq-find' has an ambiguity if the found element is nil -and if no SENTINEL is specified, as it cannot be known if an -element was found or not." +Note that `seq-find' has an ambiguity if the found element is +identical to DEFAULT, as it cannot be known if an element was +found or not." (catch 'seq--break (seq-doseq (elt seq) (when (funcall pred elt) (throw 'seq--break elt))) - sentinel)) + default)) (cl-defgeneric seq-count (pred seq) "Return the number of elements for which (PRED element) is non-nil in SEQ." |