mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 20:32:00 -08:00
Code Issues Projects Releases Wiki Activity

(kill-whole-line): Provide a default argument of 1.

Browse source
This commit is contained in:
Glenn Morris 2009-02-06 03:59:15 +00:00
parent 7a613b6723
commit 186133b411
2 changed files with 9 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/ChangeLog
View file

@ -1,3 +1,11 @@
2009-02-06 Glenn Morris <rgm@gnu.org>
* simple.el (kill-whole-line): Provide a default argument of 1.
* mail/undigest.el (rmail-mail-separator): Delete.
(undigestify-rmail-message, unforward-rmail-message): Update for
mbox Rmail.
2009-02-05 Kenichi Handa <handa@m17n.org>
* international/fontset.el (script-representative-chars): Remove

1
lisp/simple.el
View file

@ -3219,6 +3219,7 @@ If ARG is negative, kill backward. Also kill the preceding newline.
\(This is meant to make \\[repeat] work well with negative arguments.\)
If ARG is zero, kill current line but exclude the trailing newline."
(interactive "p")
(or arg (setq arg 1))
(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)))