From 186133b4116e7600aef224c90fe4e72be4b09c2f Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Fri, 6 Feb 2009 03:59:15 +0000 Subject: [PATCH] (kill-whole-line): Provide a default argument of 1. --- lisp/ChangeLog | 8 ++++++++ lisp/simple.el | 1 + 2 files changed, 9 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 362ceb5b202..76b55d3c4aa 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,11 @@ +2009-02-06 Glenn Morris + + * 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 * international/fontset.el (script-representative-chars): Remove diff --git a/lisp/simple.el b/lisp/simple.el index c19addef48a..8410d625fc3 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -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))) -- 2.39.5