317 |
(or arg (setq arg 1)) |
(or arg (setq arg 1)) |
318 |
(forward-paragraph (- arg))) |
(forward-paragraph (- arg))) |
319 |
|
|
320 |
(defun mark-paragraph () |
(defun mark-paragraph (&optional arg) |
321 |
"Put point at beginning of this paragraph, mark at end. |
"Put point at beginning of this paragraph, mark at end. |
322 |
The paragraph marked is the one that contains point or follows point." |
The paragraph marked is the one that contains point or follows point. |
323 |
(interactive) |
|
324 |
(forward-paragraph 1) |
With argument ARG, puts mark at end of a following paragraph, so that |
325 |
|
the number of paragraphs marked equals ARG. |
326 |
|
|
327 |
|
If ARG is negative, point is put at end of this paragraph, mark is put |
328 |
|
at beginning of this or a previous paragraph." |
329 |
|
(interactive "p") |
330 |
|
(unless arg (setq arg 1)) |
331 |
|
(when (zerop arg) |
332 |
|
(error "Cannot mark zero paragraphs")) |
333 |
|
(forward-paragraph arg) |
334 |
(push-mark nil t t) |
(push-mark nil t t) |
335 |
(backward-paragraph 1)) |
(backward-paragraph arg)) |
336 |
|
|
337 |
(defun kill-paragraph (arg) |
(defun kill-paragraph (arg) |
338 |
"Kill forward to end of paragraph. |
"Kill forward to end of paragraph. |