procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(tpu-delete-to-eol): Fix typo.

Browse source 
(tpu-delete-to-bol): Likewise.
This commit is contained in:
Juanma Barranquero 2002-07-03 14:32:01 +00:00
parent e6608c1233
commit 5ec2752af6
2 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -12,6 +12,9 @@
* allout.el (outline-goto-prefix): Likewise. * allout.el (outline-goto-prefix): Likewise.
* emulation/tpu-edt.el (tpu-delete-to-eol): Likewise.
(tpu-delete-to-bol): Likewise.
* subr.el (chars-in-region): Add obsolescence declaration for * subr.el (chars-in-region): Add obsolescence declaration for
`chars-in-region'. `chars-in-region'.

4
lisp/emulation/tpu-edt.el
View file

@ -1418,7 +1418,7 @@ They are saved for the TPU-edt undelete-lines command."
(defun tpu-delete-to-eol (num) (defun tpu-delete-to-eol (num)
"Delete text up to end of line. "Delete text up to end of line.
With argument, delete up to to Nth line-end past point. With argument, delete up to the Nth line-end past point.
They are saved for the TPU-edt undelete-lines command." They are saved for the TPU-edt undelete-lines command."
(interactive "p") (interactive "p")
(let ((beg (point))) (let ((beg (point)))
@ -1430,7 +1430,7 @@ They are saved for the TPU-edt undelete-lines command."
(defun tpu-delete-to-bol (num) (defun tpu-delete-to-bol (num)
"Delete text back to beginning of line. "Delete text back to beginning of line.
With argument, delete up to to Nth line-end past point. With argument, delete up to the Nth line-end past point.
They are saved for the TPU-edt undelete-lines command." They are saved for the TPU-edt undelete-lines command."
(interactive "p") (interactive "p")
(let ((beg (point))) (let ((beg (point)))