mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

* lisp/emacs-lisp/ring.el (ring): Define as a type

Browse Source
This commit is contained in:
Stefan Monnier 2022-08-14 12:29:17 -04:00
parent 1faeef7924
commit 3a9c803f24
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -42,6 +42,8 @@
;;; Code:
(eval-when-compile (require 'cl-lib))
;;; User Functions:
;;;###autoload
@ -51,6 +53,8 @@
(consp (cdr x)) (integerp (cadr x))
(vectorp (cddr x))))
(cl-deftype ring () '(satisfies ring-p))
;;;###autoload
(defun make-ring (size)
"Make a ring that can contain SIZE elements."