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

2 files changed, 9 insertions, 0 deletions

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