Function: viper-cleanup-ring

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

Signature

(viper-cleanup-ring RING)

Source Code

;; Defined in /usr/src/emacs/lisp/emulation/viper-util.el.gz
;; removing elts from ring seems to break it
(defun viper-cleanup-ring (ring)
  (or (< (ring-length ring) 2)
      (null (viper-current-ring-item ring))
      ;; last and previous equal
      (if (equal (viper-current-ring-item ring)
		 (viper-current-ring-item ring 1))
	  (viper-ring-pop ring))))