1 files changed, 1 insertions, 0 deletions
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)))

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.
3219	\(This is meant to make \\[repeat] work well with negative arguments.\)	3219	\(This is meant to make \\[repeat] work well with negative arguments.\)
3220	If ARG is zero, kill current line but exclude the trailing newline."	3220	If ARG is zero, kill current line but exclude the trailing newline."
3221	(interactive "p")	3221	(interactive "p")
		3222	(or arg (setq arg 1))
3222	(if (and (> arg 0) (eobp) (save-excursion (forward-visible-line 0) (eobp)))	3223	(if (and (> arg 0) (eobp) (save-excursion (forward-visible-line 0) (eobp)))
3223	(signal 'end-of-buffer nil))	3224	(signal 'end-of-buffer nil))
3224	(if (and (< arg 0) (bobp) (save-excursion (end-of-visible-line) (bobp)))	3225	(if (and (< arg 0) (bobp) (save-excursion (end-of-visible-line) (bobp)))