Mercurial > emacs

changeset 55294:1b8ead47966a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(kill-whole-line): Use "p" instead of "P" in interactive form.
author Luc Teirlinck <teirllm@auburn.edu>
date Sat, 01 May 2004 20:10:19 +0000
parents 82a665f80016
children 16abc166af9d
files lisp/simple.el
diffstat 1 files changed, 1 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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)))