diff options
| -rw-r--r-- | lisp/simple.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index b32d2408880..f4072e23a7a 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -2397,8 +2397,7 @@ With prefix arg, kill that many lines starting from the current line. | |||
| 2397 | If arg is negative, kill backward. Also kill the preceding newline. | 2397 | If arg is negative, kill backward. Also kill the preceding newline. |
| 2398 | \(This is meant to make C-x z work well with negative arguments.\) | 2398 | \(This is meant to make C-x z work well with negative arguments.\) |
| 2399 | If arg is zero, kill current line but exclude the trailing newline." | 2399 | If arg is zero, kill current line but exclude the trailing newline." |
| 2400 | (interactive "P") | 2400 | (interactive "p") |
| 2401 | (setq arg (prefix-numeric-value arg)) | ||
| 2402 | (if (and (> arg 0) (eobp) (save-excursion (forward-visible-line 0) (eobp))) | 2401 | (if (and (> arg 0) (eobp) (save-excursion (forward-visible-line 0) (eobp))) |
| 2403 | (signal 'end-of-buffer nil)) | 2402 | (signal 'end-of-buffer nil)) |
| 2404 | (if (and (< arg 0) (bobp) (save-excursion (end-of-visible-line) (bobp))) | 2403 | (if (and (< arg 0) (bobp) (save-excursion (end-of-visible-line) (bobp))) |