Mercurial > emacs
changeset 7064:19a84bb30e9e
(kill-paragraph): Don't use save-excursion.
(backward-kill-paragraph): Likewise.
(kill-sentence, backward-kill-sentence): Likewise.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 24 Apr 1994 05:44:56 +0000 |
| parents | 9a0d189fd877 |
| children | 0e391644f3ed |
| files | lisp/textmodes/paragraphs.el |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/textmodes/paragraphs.el Sun Apr 24 05:44:23 1994 +0000 +++ b/lisp/textmodes/paragraphs.el Sun Apr 24 05:44:56 1994 +0000 @@ -154,14 +154,14 @@ With arg N, kill forward to Nth end of paragraph; negative arg -N means kill backward to Nth start of paragraph." (interactive "p") - (kill-region (point) (save-excursion (forward-paragraph arg) (point)))) + (kill-region (point) (progn (forward-paragraph arg) (point)))) (defun backward-kill-paragraph (arg) "Kill back to start of paragraph. With arg N, kill back to Nth start of paragraph; negative arg -N means kill forward to Nth end of paragraph." (interactive "p") - (kill-region (point) (save-excursion (backward-paragraph arg) (point)))) + (kill-region (point) (progn (backward-paragraph arg) (point)))) (defun transpose-paragraphs (arg) "Interchange this (or next) paragraph with previous one." @@ -225,13 +225,13 @@ "Kill from point to end of sentence. With arg, repeat; negative arg -N means kill back to Nth start of sentence." (interactive "*p") - (kill-region (point) (save-excursion (forward-sentence arg) (point)))) + (kill-region (point) (progn (forward-sentence arg) (point)))) (defun backward-kill-sentence (&optional arg) "Kill back from point to start of sentence. With arg, repeat, or kill forward to Nth end of sentence if negative arg -N." (interactive "*p") - (kill-region (point) (save-excursion (backward-sentence arg) (point)))) + (kill-region (point) (progn (backward-sentence arg) (point)))) (defun mark-end-of-sentence (arg) "Put mark at end of sentence. Arg works as in `forward-sentence'."