Function: tpu-delete-current-char

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

Signature

(tpu-delete-current-char NUM)

Documentation

Delete one or specified number of characters after point.

The last character deleted is saved for the TPU-edt undelete-char command.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/tpu-edt.el.gz
(defun tpu-delete-current-char (num)
  "Delete one or specified number of characters after point.
The last character deleted is saved for the TPU-edt undelete-char command."
  (interactive "p")
  (while (and (> num 0) (not (eobp)))
    (setq tpu-last-deleted-char (char-after (point)))
    (cond (overwrite-mode
	   (picture-clear-column 1)
	   (forward-char 1))
	  (t
	   (delete-char 1)))
    (setq num (1- num))))