diff options
| author | Dave Love | 2000-02-23 23:10:32 +0000 |
|---|---|---|
| committer | Dave Love | 2000-02-23 23:10:32 +0000 |
| commit | 275cf1b274d1a736d69fc9f16f08dfdb49e67935 (patch) | |
| tree | 09243f3abcea28e5b557fedefc27d027e855a962 | |
| parent | e761e42c1857365c77c40f3f2275033b8b137144 (diff) | |
| download | emacs-275cf1b274d1a736d69fc9f16f08dfdb49e67935.tar.gz emacs-275cf1b274d1a736d69fc9f16f08dfdb49e67935.zip | |
(kill-paragraph, backward-kill-paragraph)
(backward-kill-sentence, kill-sentence): Likewise.
| -rw-r--r-- | lisp/ChangeLog | 7 | ||||
| -rw-r--r-- | lisp/textmodes/paragraphs.el | 8 |
2 files changed, 11 insertions, 4 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index bcd1402390b..8ccc4099c31 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,5 +1,12 @@ | |||
| 1 | 2000-02-23 Dave Love <fx@gnu.org> | 1 | 2000-02-23 Dave Love <fx@gnu.org> |
| 2 | 2 | ||
| 3 | * simple.el (zap-to-char, kill-line, kill-region, kill-word) | ||
| 4 | (backward-kill-word): Revert addition of * to interactive spec -- | ||
| 5 | it's a feature. | ||
| 6 | |||
| 7 | * paragraphs.el: (kill-paragraph, backward-kill-paragraph) | ||
| 8 | (backward-kill-sentence, kill-sentence): Likewise. | ||
| 9 | |||
| 3 | * gud.el (gud-jdb-build-class-source-alist): Prepend space to | 10 | * gud.el (gud-jdb-build-class-source-alist): Prepend space to |
| 4 | scratch buffer name. | 11 | scratch buffer name. |
| 5 | (gud-format-command): Use int-to-string in ?l case. Simplify | 12 | (gud-format-command): Use int-to-string in ?l case. Simplify |
diff --git a/lisp/textmodes/paragraphs.el b/lisp/textmodes/paragraphs.el index 1eead922b00..f3fac7076e1 100644 --- a/lisp/textmodes/paragraphs.el +++ b/lisp/textmodes/paragraphs.el | |||
| @@ -317,14 +317,14 @@ The paragraph marked is the one that contains point or follows point." | |||
| 317 | "Kill forward to end of paragraph. | 317 | "Kill forward to end of paragraph. |
| 318 | With arg N, kill forward to Nth end of paragraph; | 318 | With arg N, kill forward to Nth end of paragraph; |
| 319 | negative arg -N means kill backward to Nth start of paragraph." | 319 | negative arg -N means kill backward to Nth start of paragraph." |
| 320 | (interactive "*p") | 320 | (interactive "p") |
| 321 | (kill-region (point) (progn (forward-paragraph arg) (point)))) | 321 | (kill-region (point) (progn (forward-paragraph arg) (point)))) |
| 322 | 322 | ||
| 323 | (defun backward-kill-paragraph (arg) | 323 | (defun backward-kill-paragraph (arg) |
| 324 | "Kill back to start of paragraph. | 324 | "Kill back to start of paragraph. |
| 325 | With arg N, kill back to Nth start of paragraph; | 325 | With arg N, kill back to Nth start of paragraph; |
| 326 | negative arg -N means kill forward to Nth end of paragraph." | 326 | negative arg -N means kill forward to Nth end of paragraph." |
| 327 | (interactive "*p") | 327 | (interactive "p") |
| 328 | (kill-region (point) (progn (backward-paragraph arg) (point)))) | 328 | (kill-region (point) (progn (backward-paragraph arg) (point)))) |
| 329 | 329 | ||
| 330 | (defun transpose-paragraphs (arg) | 330 | (defun transpose-paragraphs (arg) |
| @@ -390,13 +390,13 @@ See `forward-sentence' for more information." | |||
| 390 | (defun kill-sentence (&optional arg) | 390 | (defun kill-sentence (&optional arg) |
| 391 | "Kill from point to end of sentence. | 391 | "Kill from point to end of sentence. |
| 392 | With arg, repeat; negative arg -N means kill back to Nth start of sentence." | 392 | With arg, repeat; negative arg -N means kill back to Nth start of sentence." |
| 393 | (interactive "*p") | 393 | (interactive "p") |
| 394 | (kill-region (point) (progn (forward-sentence arg) (point)))) | 394 | (kill-region (point) (progn (forward-sentence arg) (point)))) |
| 395 | 395 | ||
| 396 | (defun backward-kill-sentence (&optional arg) | 396 | (defun backward-kill-sentence (&optional arg) |
| 397 | "Kill back from point to start of sentence. | 397 | "Kill back from point to start of sentence. |
| 398 | With arg, repeat, or kill forward to Nth end of sentence if negative arg -N." | 398 | With arg, repeat, or kill forward to Nth end of sentence if negative arg -N." |
| 399 | (interactive "*p") | 399 | (interactive "p") |
| 400 | (kill-region (point) (progn (backward-sentence arg) (point)))) | 400 | (kill-region (point) (progn (backward-sentence arg) (point)))) |
| 401 | 401 | ||
| 402 | (defun mark-end-of-sentence (arg) | 402 | (defun mark-end-of-sentence (arg) |