From 275cf1b274d1a736d69fc9f16f08dfdb49e67935 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Wed, 23 Feb 2000 23:10:32 +0000 Subject: [PATCH] (kill-paragraph, backward-kill-paragraph) (backward-kill-sentence, kill-sentence): Likewise. --- lisp/ChangeLog | 7 +++++++ 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 @@ 2000-02-23 Dave Love + * simple.el (zap-to-char, kill-line, kill-region, kill-word) + (backward-kill-word): Revert addition of * to interactive spec -- + it's a feature. + + * paragraphs.el: (kill-paragraph, backward-kill-paragraph) + (backward-kill-sentence, kill-sentence): Likewise. + * gud.el (gud-jdb-build-class-source-alist): Prepend space to scratch buffer name. (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." "Kill forward to end of paragraph. With arg N, kill forward to Nth end of paragraph; negative arg -N means kill backward to Nth start of paragraph." - (interactive "*p") + (interactive "p") (kill-region (point) (progn (forward-paragraph arg) (point)))) (defun backward-kill-paragraph (arg) "Kill back to start of paragraph. With arg N, kill back to Nth start of paragraph; negative arg -N means kill forward to Nth end of paragraph." - (interactive "*p") + (interactive "p") (kill-region (point) (progn (backward-paragraph arg) (point)))) (defun transpose-paragraphs (arg) @@ -390,13 +390,13 @@ See `forward-sentence' for more information." (defun kill-sentence (&optional arg) "Kill from point to end of sentence. With arg, repeat; negative arg -N means kill back to Nth start of sentence." - (interactive "*p") + (interactive "p") (kill-region (point) (progn (forward-sentence arg) (point)))) (defun backward-kill-sentence (&optional arg) "Kill back from point to start of sentence. With arg, repeat, or kill forward to Nth end of sentence if negative arg -N." - (interactive "*p") + (interactive "p") (kill-region (point) (progn (backward-sentence arg) (point)))) (defun mark-end-of-sentence (arg) -- 2.39.5