# HG changeset patch
# User Luc Teirlinck <teirllm@auburn.edu>
# Date 1083442219 0
# Node ID 1b8ead47966ac14fedbf9df68332678fb66d704e
# Parent  82a665f80016a3b547bb47f980b11c57ae3ed8dd
(kill-whole-line): Use "p" instead of "P" in interactive form.

diff -r 82a665f80016 -r 1b8ead47966a lisp/simple.el
--- 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)))