Commit 2247b0fc authored by Richard M. Stallman's avatar Richard M. Stallman

(kill-sentence, backward-kill-sentence):

(kill-paragraph, backward-kill-paragraph):
Don't change point before calling kill-region.
parent 1ddea2ab
......@@ -133,14 +133,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) (progn (forward-paragraph arg) (point))))
(kill-region (point) (save-excursion (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) (progn (backward-paragraph arg) (point))))
(kill-region (point) (save-excursion (backward-paragraph arg) (point))))
(defun transpose-paragraphs (arg)
"Interchange this (or next) paragraph with previous one."
......@@ -204,17 +204,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")
(let ((beg (point)))
(forward-sentence arg)
(kill-region beg (point))))
(kill-region (point) (save-excursion (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")
(let ((beg (point)))
(backward-sentence arg)
(kill-region beg (point))))
(kill-region (point) (save-excursion (forward-sentence arg) (point))))
(defun mark-end-of-sentence (arg)
"Put mark at end of sentence. Arg works as in `forward-sentence'."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment