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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 362ceb5b2026dabf00a622114fe9b17a86360ae4..76b55d3c4aa85f47fb977a4676ebad6258a24416 100644 (file)
--- 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 c19addef48ae1525bb57a1d6ccb77a6fd85c4c5f..8410d625fc3e380c61139bcbc79049716ba39f48 100644 (file)
--- 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)))