From: Juanma Barranquero <lekktu@gmail.com>
Date: Wed, 3 Jul 2002 14:32:01 +0000 (+0000)
Subject: (tpu-delete-to-eol): Fix typo.
X-Git-Tag: ttn-vms-21-2-B4~14319
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5ec2752af6e1d88effeb6fe6422da0c1c74cc69c;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3a22f147ea2..8ebd18a19cf 100644
--- 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 ae3ac67a57c..1296d497960 100644
--- 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)))