Function: replace-loop-through-replacements

replace-loop-through-replacements is a byte-compiled function defined in replace.el.gz.

Signature

(replace-loop-through-replacements DATA COUNT)

Source Code

;; Defined in /usr/src/emacs/lisp/replace.el.gz
(defun replace-loop-through-replacements (data count)
  ;; DATA is a vector containing the following values:
  ;;   0 next-rotate-count
  ;;   1 repeat-count
  ;;   2 next-replacement
  ;;   3 replacements
  (if (= (aref data 0) count)
      (progn
        (aset data 0 (+ count (aref data 1)))
        (let ((next (cdr (aref data 2))))
          (aset data 2 (if (consp next) next (aref data 3))))))
  (car (aref data 2)))