Mercurial > emacs
comparison lisp/textmodes/paragraphs.el @ 24971:e69a77b61b45
(kill-paragraph, backward-kill-paragraph, kill-sentence)
(backward-kill-sentence): Add * to interactive spec.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Tue, 20 Jul 1999 15:56:11 +0000 |
| parents | 30ee4bf65cb3 |
| children | bf9932dab556 |
comparison
equal
deleted
inserted
replaced
| 24970:3796fd32e28d | 24971:e69a77b61b45 |
|---|---|
| 313 | 313 |
| 314 (defun kill-paragraph (arg) | 314 (defun kill-paragraph (arg) |
| 315 "Kill forward to end of paragraph. | 315 "Kill forward to end of paragraph. |
| 316 With arg N, kill forward to Nth end of paragraph; | 316 With arg N, kill forward to Nth end of paragraph; |
| 317 negative arg -N means kill backward to Nth start of paragraph." | 317 negative arg -N means kill backward to Nth start of paragraph." |
| 318 (interactive "p") | 318 (interactive "*p") |
| 319 (kill-region (point) (progn (forward-paragraph arg) (point)))) | 319 (kill-region (point) (progn (forward-paragraph arg) (point)))) |
| 320 | 320 |
| 321 (defun backward-kill-paragraph (arg) | 321 (defun backward-kill-paragraph (arg) |
| 322 "Kill back to start of paragraph. | 322 "Kill back to start of paragraph. |
| 323 With arg N, kill back to Nth start of paragraph; | 323 With arg N, kill back to Nth start of paragraph; |
| 324 negative arg -N means kill forward to Nth end of paragraph." | 324 negative arg -N means kill forward to Nth end of paragraph." |
| 325 (interactive "p") | 325 (interactive "*p") |
| 326 (kill-region (point) (progn (backward-paragraph arg) (point)))) | 326 (kill-region (point) (progn (backward-paragraph arg) (point)))) |
| 327 | 327 |
| 328 (defun transpose-paragraphs (arg) | 328 (defun transpose-paragraphs (arg) |
| 329 "Interchange this (or next) paragraph with previous one." | 329 "Interchange this (or next) paragraph with previous one." |
| 330 (interactive "*p") | 330 (interactive "*p") |
| 384 (forward-sentence (- arg))) | 384 (forward-sentence (- arg))) |
| 385 | 385 |
| 386 (defun kill-sentence (&optional arg) | 386 (defun kill-sentence (&optional arg) |
| 387 "Kill from point to end of sentence. | 387 "Kill from point to end of sentence. |
| 388 With arg, repeat; negative arg -N means kill back to Nth start of sentence." | 388 With arg, repeat; negative arg -N means kill back to Nth start of sentence." |
| 389 (interactive "p") | 389 (interactive "*p") |
| 390 (kill-region (point) (progn (forward-sentence arg) (point)))) | 390 (kill-region (point) (progn (forward-sentence arg) (point)))) |
| 391 | 391 |
| 392 (defun backward-kill-sentence (&optional arg) | 392 (defun backward-kill-sentence (&optional arg) |
| 393 "Kill back from point to start of sentence. | 393 "Kill back from point to start of sentence. |
| 394 With arg, repeat, or kill forward to Nth end of sentence if negative arg -N." | 394 With arg, repeat, or kill forward to Nth end of sentence if negative arg -N." |
| 395 (interactive "p") | 395 (interactive "*p") |
| 396 (kill-region (point) (progn (backward-sentence arg) (point)))) | 396 (kill-region (point) (progn (backward-sentence arg) (point)))) |
| 397 | 397 |
| 398 (defun mark-end-of-sentence (arg) | 398 (defun mark-end-of-sentence (arg) |
| 399 "Put mark at end of sentence. Arg works as in `forward-sentence'." | 399 "Put mark at end of sentence. Arg works as in `forward-sentence'." |
| 400 (interactive "p") | 400 (interactive "p") |