diff options
| author | Glenn Morris | 2009-02-06 03:59:15 +0000 |
|---|---|---|
| committer | Glenn Morris | 2009-02-06 03:59:15 +0000 |
| commit | 186133b4116e7600aef224c90fe4e72be4b09c2f (patch) | |
| tree | a75f566765689bfe131656c478ec3fba4083617c /lisp/simple.el | |
| parent | 7a613b67236bc688d7a03cb02fda286b8e10f9dc (diff) | |
| download | emacs-186133b4116e7600aef224c90fe4e72be4b09c2f.tar.gz emacs-186133b4116e7600aef224c90fe4e72be4b09c2f.zip | |
(kill-whole-line): Provide a default argument of 1.
Diffstat (limited to 'lisp/simple.el')
| -rw-r--r-- | lisp/simple.el | 1 |
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. | |||
| 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))) |