mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

Add new function `seq-split'

Browse source 
* doc/lispref/sequences.texi (Sequence Functions): Document it.

* lisp/emacs-lisp/seq.el (seq-split): New function.

* lisp/emacs-lisp/shortdoc.el (sequence): Mention it.
This commit is contained in:
Lars Ingebrigtsen 2022-07-03 12:55:00 +02:00
parent a2f956a1d6
commit b31680ef04
5 changed files with 56 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lisp/emacs-lisp/seq.el
View file

@ -632,5 +632,20 @@ Signal an error if SEQUENCE is empty."
;; we automatically highlight macros.
(add-hook 'emacs-lisp-mode-hook #'seq--activate-font-lock-keywords))
(defun seq-split (sequence length)
"Split SEQUENCE into a list of sub-sequences of at most LENGTH.
All the sub-sequences will be of LENGTH, except the last one,
which may be shorter."
(when (< length 1)
(error "Sub-sequence length must be larger than zero"))
(let ((result nil)
(seq-length (length sequence))
(start 0))
(while (< start seq-length)
(push (seq-subseq sequence start
(setq start (min seq-length (+ start length))))
result))
(nreverse result)))
(provide 'seq)
;;; seq.el ends here