Commit f48b59a2 authored by Kai Großjohann's avatar Kai Großjohann

(mark-paragraph): Clarify doc. Clarify

error message.  Suggestion from Richard M. Stallman.
parent e294aed7
2001-11-30 Kai Gro,A_(Bjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE>
* textmodes/paragraphs.el (mark-paragraph): Clarify doc. Clarify
error message. Suggestion from Richard Stallman.
2001-11-29 Kai Grossjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE>
* textmodes/paragraphs.el (mark-paragraph): Allow prefix arg.
2001-11-30 Andre Spiegel <spiegel@gnu.org>
* vc-cvs.el (vc-cvs-parse-status): Store file state in property,
......
......@@ -317,13 +317,22 @@ See `forward-paragraph' for more information."
(or arg (setq arg 1))
(forward-paragraph (- arg)))
(defun mark-paragraph ()
(defun mark-paragraph (&optional arg)
"Put point at beginning of this paragraph, mark at end.
The paragraph marked is the one that contains point or follows point."
(interactive)
(forward-paragraph 1)
The paragraph marked is the one that contains point or follows point.
With argument ARG, puts mark at end of a following paragraph, so that
the number of paragraphs marked equals ARG.
If ARG is negative, point is put at end of this paragraph, mark is put
at beginning of this or a previous paragraph."
(interactive "p")
(unless arg (setq arg 1))
(when (zerop arg)
(error "Cannot mark zero paragraphs"))
(forward-paragraph arg)
(push-mark nil t t)
(backward-paragraph 1))
(backward-paragraph arg))
(defun kill-paragraph (arg)
"Kill forward to end of paragraph.
......
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