Function: viper-current-ring-item

viper-current-ring-item is a byte-compiled function defined in viper-util.el.gz.

Signature

(viper-current-ring-item RING &optional N)

Source Code

;; Defined in /usr/src/emacs/lisp/emulation/viper-util.el.gz
;; current ring item; if N is given, then so many items back from the
;; current
(defun viper-current-ring-item (ring &optional n)
  (setq n (or n 0))
  (if (and (ring-p ring) (> (ring-length ring) 0))
      (aref (cdr (cdr ring)) (mod (- (car ring) 1 n) (ring-length ring)))))