Mercurial > hg > xemacs-beta

comparison lisp/utils/ring.el @ 175:2d532a89d707 r20-3b14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b14
author cvs
date Mon, 13 Aug 2007 09:50:14 +0200
parents ac2d302a0011
children
comparison
equal deleted inserted replaced
174:bb3568571b84 175:2d532a89d707
50 (consp (cdr x)) (integerp (car (cdr x))) 50 (consp (cdr x)) (integerp (car (cdr x)))
51 (vectorp (cdr (cdr x))))) 51 (vectorp (cdr (cdr x)))))
52 52
53 ;; XEmacs change 53 ;; XEmacs change
54 ;;;###autoload 54 ;;;###autoload
55 (define-obsolete-function-alias 'ring-p 'ringp) 55 (define-compatible-function-alias 'ring-p 'ringp)
56 56
57 ;;;###autoload 57 ;;;###autoload
58 (defun make-ring (size) 58 (defun make-ring (size)
59 "Make a ring that can contain SIZE elements." 59 "Make a ring that can contain SIZE elements."
60 (cons 0 (cons 0 (make-vector size nil)))) 60 (cons 0 (cons 0 (make-vector size nil))))