From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 24 Apr 1994 05:44:56 +0000 (+0000)
Subject: (kill-paragraph): Don't use save-excursion.
X-Git-Tag: emacs-19.34~8789
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8d6eaa007af207403c7a91415058127b23dc5892;p=emacs.git

(kill-paragraph): Don't use save-excursion.
(backward-kill-paragraph): Likewise.
(kill-sentence, backward-kill-sentence): Likewise.
---

diff --git a/lisp/textmodes/paragraphs.el b/lisp/textmodes/paragraphs.el
index 9c78aaaceb9..aca848127f2 100644
--- a/lisp/textmodes/paragraphs.el
+++ b/lisp/textmodes/paragraphs.el
@@ -154,14 +154,14 @@ The paragraph marked is the one that contains point or follows point."
 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 @@ See `forward-sentence' for more information."
   "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'."