Function: tpu-delete-current-line

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

Signature

(tpu-delete-current-line NUM)

Documentation

Delete one or specified number of lines after point.

This includes the newline character at the end of each line. 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-current-line (num)
  "Delete one or specified number of lines after point.
This includes the newline character at the end of each line.
They are saved for the TPU-edt undelete-lines command."
  (interactive "p")
  (let ((beg (point)))
    (forward-line num)
    (if (not (eq (preceding-char) ?\n))
        (insert "\n"))
    (setq tpu-last-deleted-lines
          (buffer-substring beg (point)))
    (delete-region beg (point))))