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

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

Browse Source
This commit is contained in:
Luc Teirlinck 2004-05-01 20:10:19 +00:00
parent affa509c00
commit f8b0f284a3
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/simple.el
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. If arg is negative, kill backward. Also kill the preceding newline.
\(This is meant to make C-x z work well with negative arguments.\) \(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." If arg is zero, kill current line but exclude the trailing newline."
(interactive "P") (interactive "p")
(setq arg (prefix-numeric-value arg))
(if (and (> arg 0) (eobp) (save-excursion (forward-visible-line 0) (eobp))) (if (and (> arg 0) (eobp) (save-excursion (forward-visible-line 0) (eobp)))
(signal 'end-of-buffer nil)) (signal 'end-of-buffer nil))
(if (and (< arg 0) (bobp) (save-excursion (end-of-visible-line) (bobp))) (if (and (< arg 0) (bobp) (save-excursion (end-of-visible-line) (bobp)))