branch: externals/stream
commit 1e3c1436cc1b66348091abef7d2658b3a2296625
Author: Earl Hyatt <oka...@protonmail.com>
Commit: Stefan Monnier <monn...@iro.umontreal.ca>
Shorten the documentation strings of seq-take-while and seq-drop-while.
* stream.el (seq-take-while): Re-word documentation string to be less that
80
characters.
* stream.el (seq-drop-while): Re-word documentation string for symmetry with
seq-take-while.
---
stream.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/stream.el b/stream.el
index 4c1fb4bd7f..dcd45a7320 100644
--- a/stream.el
+++ b/stream.el
@@ -413,14 +413,14 @@ stream will simply be accordingly shorter, or even
empty)."
(stream-rest stream)))))
(cl-defmethod seq-take-while (pred (stream stream))
- "Return a stream of the successive elements for which (PRED elt) is non-nil
in STREAM."
+ "Return a stream of STREAM's successive elements for which PRED returns
non-nil."
(stream-make
(when (funcall pred (stream-first stream))
(cons (stream-first stream)
(seq-take-while pred (stream-rest stream))))))
(cl-defmethod seq-drop-while (pred (stream stream))
- "Return a stream from the first element for which (PRED elt) is nil in
STREAM."
+ "Return a stream of STREAM's successive elements for which PRED returns nil."
(stream-make
(while (not (or (stream-empty-p stream)
(funcall pred (stream-first stream))))
