1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00

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

This commit is contained in:
Luc Teirlinck 2004-05-01 20:10:19 +00:00
parent affa509c00
commit f8b0f284a3

View File

@ -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)))