(kill-whole-line): Use "p" instead of "P" in interactive form.

diff --git a/lisp/simple.el b/lisp/simple.el
index b32d2408880a3b20c40239414bac86c415eca740..f4072e23a7aeb60a4a31f62e8876bc6d628171f2 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -2397,8 +2397,7 @@ With prefix arg, kill that many lines starting from the current line.
 If arg is negative, kill backward.  Also kill the preceding newline.
 \(This is meant to make C-x z work well with negative arguments.\)
 If arg is zero, kill current line but exclude the trailing newline."
-  (interactive "P")
-  (setq arg (prefix-numeric-value arg))
+  (interactive "p")
   (if (and (> arg 0) (eobp) (save-excursion (forward-visible-line 0) (eobp)))
       (signal 'end-of-buffer nil))
   (if (and (< arg 0) (bobp) (save-excursion (end-of-visible-line) (bobp)))