1418 |
|
|
1419 |
(defun tpu-delete-to-eol (num) |
(defun tpu-delete-to-eol (num) |
1420 |
"Delete text up to end of line. |
"Delete text up to end of line. |
1421 |
With argument, delete up to to Nth line-end past point. |
With argument, delete up to the Nth line-end past point. |
1422 |
They are saved for the TPU-edt undelete-lines command." |
They are saved for the TPU-edt undelete-lines command." |
1423 |
(interactive "p") |
(interactive "p") |
1424 |
(let ((beg (point))) |
(let ((beg (point))) |
1430 |
|
|
1431 |
(defun tpu-delete-to-bol (num) |
(defun tpu-delete-to-bol (num) |
1432 |
"Delete text back to beginning of line. |
"Delete text back to beginning of line. |
1433 |
With argument, delete up to to Nth line-end past point. |
With argument, delete up to the Nth line-end past point. |
1434 |
They are saved for the TPU-edt undelete-lines command." |
They are saved for the TPU-edt undelete-lines command." |
1435 |
(interactive "p") |
(interactive "p") |
1436 |
(let ((beg (point))) |
(let ((beg (point))) |