Function: tpu-delete-to-eol

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

Signature

(tpu-delete-to-eol NUM)

Documentation

Delete text up to end of line.

With argument, delete up to the Nth line-end past point. They are saved for the TPU-edt undelete-lines command.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/tpu-edt.el.gz
(defun tpu-delete-to-eol (num)
  "Delete text up to end of line.
With argument, delete up to the Nth line-end past point.
They are saved for the TPU-edt undelete-lines command."
  (interactive "p")
  (let ((beg (point)))
    (forward-char 1)
    (end-of-line num)
    (setq tpu-last-deleted-lines
          (buffer-substring beg (point)))
    (delete-region beg (point))))