From: Luc Teirlinck <teirllm@auburn.edu>
Date: Sat, 1 May 2004 20:10:19 +0000 (+0000)
Subject: (kill-whole-line): Use "p" instead of "P" in interactive form.
X-Git-Tag: ttn-vms-21-2-B4~6472
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f8b0f284a37b7ecefc08f7ab4b7a5b5947934e7b;p=emacs.git

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

diff --git a/lisp/simple.el b/lisp/simple.el
index b32d2408880..f4072e23a7a 100644
--- 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)))