1414 |
|
|
1415 |
(defun tpu-delete-to-eol (num) |
(defun tpu-delete-to-eol (num) |
1416 |
"Delete text up to end of line. |
"Delete text up to end of line. |
1417 |
With argument, delete up to to Nth line-end past point. |
With argument, delete up to the Nth line-end past point. |
1418 |
They are saved for the TPU-edt undelete-lines command." |
They are saved for the TPU-edt undelete-lines command." |
1419 |
(interactive "p") |
(interactive "p") |
1420 |
(let ((beg (point))) |
(let ((beg (point))) |
1426 |
|
|
1427 |
(defun tpu-delete-to-bol (num) |
(defun tpu-delete-to-bol (num) |
1428 |
"Delete text back to beginning of line. |
"Delete text back to beginning of line. |
1429 |
With argument, delete up to to Nth line-end past point. |
With argument, delete up to the Nth line-end past point. |
1430 |
They are saved for the TPU-edt undelete-lines command." |
They are saved for the TPU-edt undelete-lines command." |
1431 |
(interactive "p") |
(interactive "p") |
1432 |
(let ((beg (point))) |
(let ((beg (point))) |