aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorEli Zaretskii2025-09-13 12:06:35 +0300
committerEli Zaretskii2025-09-13 12:06:35 +0300
commitd02181e39f3bd6ca04445609cdacf44022d18b7c (patch)
treeaf4cd48f71826b2027ff2bda17b3ee939a0aaaf7
parent92fa2b60c613c653ecea262a04ab8e7f3a8ff2f9 (diff)
downloademacs-d02181e39f3bd6ca04445609cdacf44022d18b7c.tar.gz
emacs-d02181e39f3bd6ca04445609cdacf44022d18b7c.zip
; * lisp/emacs-lisp/ring.el (ring-convert-sequence-to-ring): Bug#79330.
-rw-r--r--lisp/emacs-lisp/ring.el4
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/ring.el b/lisp/emacs-lisp/ring.el
index 8518753ab20..4f14d607d2a 100644
--- a/lisp/emacs-lisp/ring.el
+++ b/lisp/emacs-lisp/ring.el
@@ -241,7 +241,9 @@ If the RING is full, behavior depends on GROW-P:
241 241
242(defun ring-convert-sequence-to-ring (seq) 242(defun ring-convert-sequence-to-ring (seq)
243 "Convert sequence SEQ to a ring, and return the ring. 243 "Convert sequence SEQ to a ring, and return the ring.
244If SEQ is already a ring, return it." 244If SEQ is already a ring, return it.
245Members of SEQ that are `equal' to the first member are not inserted,
246which will cause the resulting ring to have nil elements."
245 (if (ring-p seq) 247 (if (ring-p seq)
246 seq 248 seq
247 (let* ((size (length seq)) 249 (let* ((size (length seq))