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

(tpu-delete-to-bol): Likewise.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3a22f147ea2af01f244690a91f59fb2b149b722c..8ebd18a19cf7d1a66f019541e7ab89e3bc8f33b8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -12,6 +12,9 @@
 
        * 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
        `chars-in-region'.
 

diff --git a/lisp/emulation/tpu-edt.el b/lisp/emulation/tpu-edt.el
index ae3ac67a57c2cc8994e6a381ec0237161182a914..1296d4979606c3460913daf6b49540806100a55e 100644 (file)
--- a/lisp/emulation/tpu-edt.el
+++ b/lisp/emulation/tpu-edt.el
@@ -1418,7 +1418,7 @@ They are saved for the TPU-edt undelete-lines command."
 
 (defun tpu-delete-to-eol (num)
   "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."
   (interactive "p")
   (let ((beg (point)))
@@ -1430,7 +1430,7 @@ They are saved for the TPU-edt undelete-lines command."
 
 (defun tpu-delete-to-bol (num)
   "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."
   (interactive "p")
   (let ((beg (point)))