aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDave Love2000-02-23 23:10:32 +0000
committerDave Love2000-02-23 23:10:32 +0000
commit275cf1b274d1a736d69fc9f16f08dfdb49e67935 (patch)
tree09243f3abcea28e5b557fedefc27d027e855a962
parente761e42c1857365c77c40f3f2275033b8b137144 (diff)
downloademacs-275cf1b274d1a736d69fc9f16f08dfdb49e67935.tar.gz
emacs-275cf1b274d1a736d69fc9f16f08dfdb49e67935.zip
(kill-paragraph, backward-kill-paragraph)
(backward-kill-sentence, kill-sentence): Likewise.
-rw-r--r--lisp/ChangeLog7
-rw-r--r--lisp/textmodes/paragraphs.el8
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 @@
12000-02-23 Dave Love <fx@gnu.org> 12000-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.
318With arg N, kill forward to Nth end of paragraph; 318With arg N, kill forward to Nth end of paragraph;
319negative arg -N means kill backward to Nth start of paragraph." 319negative 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.
325With arg N, kill back to Nth start of paragraph; 325With arg N, kill back to Nth start of paragraph;
326negative arg -N means kill forward to Nth end of paragraph." 326negative 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.
392With arg, repeat; negative arg -N means kill back to Nth start of sentence." 392With 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.
398With arg, repeat, or kill forward to Nth end of sentence if negative arg -N." 398With 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)