From 5ec2752af6e1d88effeb6fe6422da0c1c74cc69c Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 3 Jul 2002 14:32:01 +0000 Subject: [PATCH] (tpu-delete-to-eol): Fix typo. (tpu-delete-to-bol): Likewise. --- lisp/ChangeLog | 3 +++ lisp/emulation/tpu-edt.el | 4 ++-- 2 files changed, 5 insertions(+), 2 deletions(-) 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)))