Function: tpu-undelete-char

tpu-undelete-char is an interactive and byte-compiled function defined in tpu-edt.el.gz.

Signature

(tpu-undelete-char NUM)

Documentation

Insert character deleted by last TPU-edt character-deletion command.

With argument reinserts the character that many times.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/tpu-edt.el.gz
(defun tpu-undelete-char (num)
  "Insert character deleted by last TPU-edt character-deletion command.
With argument reinserts the character that many times."
  (interactive "p")
  (while (> num 0)
    (if overwrite-mode (prog1 (forward-char -1) (delete-char 1)))
    (insert tpu-last-deleted-char)
    (forward-char -1)
    (setq num (1- num))))