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") |