diff options
| author | Luc Teirlinck <[email protected]> | 2004-05-01 20:10:19 +0000 |
|---|---|---|
| committer | Luc Teirlinck <[email protected]> | 2004-05-01 20:10:19 +0000 |
| commit | f8b0f284a37b7ecefc08f7ab4b7a5b5947934e7b (patch) | |
| tree | 9226d9c0db910518bccc5b8f1c3861c5779abbbc | |
| parent | affa509c00e901f09f68a96bdfe199164b0c2640 (diff) | |
(kill-whole-line): Use "p" instead of "P" in interactive form.
| -rw-r--r-- | lisp/simple.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index b32d240888..f4072e23a7 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))) |