diff lisp/simple.el @ 55294:1b8ead47966a

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

--- a/lisp/simple.el	Sat May 01 17:39:43 2004 +0000
+++ b/lisp/simple.el	Sat May 01 20:10:19 2004 +0000
@@ -2397,8 +2397,7 @@
 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)))