mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(kill-paragraph): Don't use save-excursion.

Browse source 
(backward-kill-paragraph): Likewise.
(kill-sentence, backward-kill-sentence): Likewise.
This commit is contained in:
Richard M. Stallman 1994-04-24 05:44:56 +00:00
parent e6291fe1d6
commit 8d6eaa007a
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/textmodes/paragraphs.el
View file

@ -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'."