changeset 27836:132294fa754e

(zap-to-char, kill-line, kill-region, kill-word) (backward-kill-word): Revert addition of * to interactive spec.

--- a/lisp/simple.el	Wed Feb 23 22:20:44 2000 +0000
+++ b/lisp/simple.el	Wed Feb 23 23:08:02 2000 +0000
@@ -1637,7 +1637,7 @@
 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 @@
   "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 @@
 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 @@
 (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)