(zap-to-char, kill-line, kill-region, kill-word)

(backward-kill-word): Revert addition of * to interactive spec.

diff --git a/lisp/simple.el b/lisp/simple.el
index ac5412ed290b8b7dc09929c6efb2ba51cc021516..a7d8b480952d8f1e7634c3ad56460d589e473144 100644 (file)
--- 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)