Function: viper-replace-char-subr

viper-replace-char-subr is a byte-compiled function defined in viper-cmd.el.gz.

Signature

(viper-replace-char-subr COM ARG)

Source Code

;; Defined in /usr/src/emacs/lisp/emulation/viper-cmd.el.gz
(defun viper-replace-char-subr (com arg)
  (let ((inhibit-quit t)
	char)
    (viper-set-complex-command-for-undo)
    (or (eq viper-intermediate-command 'viper-repeat)
	(viper-special-read-and-insert-char))

    (delete-char 1 t)
    (setq char (if com viper-d-char (viper-char-at-pos 'backward)))

    (if com (insert char))

    (setq viper-d-char char)

    (viper-loop (1- (if (> arg 0) arg (- arg)))
		(delete-char 1 t)
		(insert char))

    (viper-adjust-undo)
    (backward-char arg)
    ))