Function: tpu-delete-to-bol

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

Signature

(tpu-delete-to-bol NUM)

Documentation

Delete text back to beginning 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-bol (num)
  "Delete text back to beginning 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)))
    (tpu-next-beginning-of-line num)
    (setq tpu-last-deleted-lines
          (buffer-substring (point) beg))
    (delete-region (point) beg)))