diff options
| author | Eli Zaretskii | 2025-09-13 12:06:35 +0300 |
|---|---|---|
| committer | Eli Zaretskii | 2025-09-13 12:06:35 +0300 |
| commit | d02181e39f3bd6ca04445609cdacf44022d18b7c (patch) | |
| tree | af4cd48f71826b2027ff2bda17b3ee939a0aaaf7 | |
| parent | 92fa2b60c613c653ecea262a04ab8e7f3a8ff2f9 (diff) | |
| download | emacs-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.el | 4 |
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. |
| 244 | If SEQ is already a ring, return it." | 244 | If SEQ is already a ring, return it. |
| 245 | Members of SEQ that are `equal' to the first member are not inserted, | ||
| 246 | which 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)) |