From e761e42c1857365c77c40f3f2275033b8b137144 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Wed, 23 Feb 2000 23:08:02 +0000 Subject: [PATCH] (zap-to-char, kill-line, kill-region, kill-word) (backward-kill-word): Revert addition of * to interactive spec. --- lisp/simple.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/simple.el b/lisp/simple.el index ac5412ed290..a7d8b480952 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -1637,7 +1637,7 @@ Any command that calls this function is a \"kill command\". If the previous command was also a kill command, the text killed this time appends to the text killed last time to make one entry in the kill ring." - (interactive "*r") + (interactive "r") (condition-case nil (let ((string (delete-and-extract-region beg end))) (when string ;STRING is nil if BEG = END @@ -1856,7 +1856,7 @@ and KILLP is t if a prefix arg was specified." "Kill up to and including ARG'th occurrence of CHAR. Case is ignored if `case-fold-search' is non-nil in the current buffer. Goes backward if ARG is negative; error if CHAR not found." - (interactive "*p\ncZap to char: ") + (interactive "p\ncZap to char: ") (kill-region (point) (progn (search-forward (char-to-string char) nil nil arg) ; (goto-char (if (> arg 0) (1- (point)) (1+ (point)))) @@ -1884,7 +1884,7 @@ If `kill-whole-line' is non-nil, then this command kills the whole line including its terminating newline, when used at the beginning of a line with no argument. As a consequence, you can always kill a whole line by typing \\[beginning-of-line] \\[kill-line]." - (interactive "*P") + (interactive "P") (kill-region (point) ;; It is better to move point to the other end of the kill ;; before killing. That way, in a read-only buffer, point @@ -2896,13 +2896,13 @@ In programs, it is faster to call `forward-word' with negative arg." (defun kill-word (arg) "Kill characters forward until encountering the end of a word. With argument, do this that many times." - (interactive "*p") + (interactive "p") (kill-region (point) (progn (forward-word arg) (point)))) (defun backward-kill-word (arg) "Kill characters backward until encountering the end of a word. With argument, do this that many times." - (interactive "*p") + (interactive "p") (kill-word (- arg))) (defun current-word (&optional strict) -- 2.39.5