diff options
| author | Luc Teirlinck | 2004-05-01 20:10:19 +0000 |
|---|---|---|
| committer | Luc Teirlinck | 2004-05-01 20:10:19 +0000 |
| commit | f8b0f284a37b7ecefc08f7ab4b7a5b5947934e7b (patch) | |
| tree | 9226d9c0db910518bccc5b8f1c3861c5779abbbc | |
| parent | affa509c00e901f09f68a96bdfe199164b0c2640 (diff) | |
| download | emacs-f8b0f284a37b7ecefc08f7ab4b7a5b5947934e7b.tar.gz emacs-f8b0f284a37b7ecefc08f7ab4b7a5b5947934e7b.zip | |
(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 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. | |||
| 2397 | If arg is negative, kill backward. Also kill the preceding newline. | 2397 | If arg is negative, kill backward. Also kill the preceding newline. |
| 2398 | \(This is meant to make C-x z work well with negative arguments.\) | 2398 | \(This is meant to make C-x z work well with negative arguments.\) |
| 2399 | If arg is zero, kill current line but exclude the trailing newline." | 2399 | If arg is zero, kill current line but exclude the trailing newline." |
| 2400 | (interactive "P") | 2400 | (interactive "p") |
| 2401 | (setq arg (prefix-numeric-value arg)) | ||
| 2402 | (if (and (> arg 0) (eobp) (save-excursion (forward-visible-line 0) (eobp))) | 2401 | (if (and (> arg 0) (eobp) (save-excursion (forward-visible-line 0) (eobp))) |
| 2403 | (signal 'end-of-buffer nil)) | 2402 | (signal 'end-of-buffer nil)) |
| 2404 | (if (and (< arg 0) (bobp) (save-excursion (end-of-visible-line) (bobp))) | 2403 | (if (and (< arg 0) (bobp) (save-excursion (end-of-visible-line) (bobp))) |