Function: mpc-ring-push

mpc-ring-push is a byte-compiled function defined in mpc.el.gz.

Signature

(mpc-ring-push RING VAL)

Source Code

;; Defined in /usr/src/emacs/lisp/mpc.el.gz
(defun mpc-ring-push (ring val)
  (aset (cddr ring) (car ring) val)
  (setcar (cdr ring) (max (cadr ring) (1+ (car ring))))
  (setcar ring (mod (1+ (car ring)) (length (cddr ring)))))