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

; * lisp/emacs-lisp/ring.el (ring-convert-sequence-to-ring): Bug#79330.

Browse source
This commit is contained in:
Eli Zaretskii 2025-09-13 12:06:35 +03:00
parent 92fa2b60c6
commit d02181e39f
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/emacs-lisp/ring.el
View file

@ -241,7 +241,9 @@ If the RING is full, behavior depends on GROW-P:
(defun ring-convert-sequence-to-ring (seq)
"Convert sequence SEQ to a ring, and return the ring.
If SEQ is already a ring, return it."
If SEQ is already a ring, return it.
Members of SEQ that are `equal' to the first member are not inserted,
which will cause the resulting ring to have nil elements."
(if (ring-p seq)
seq
(let* ((size (length seq))