Mercurial > emacs
comparison lisp/simple.el @ 101828:fde299e29d94
(kill-whole-line): Provide a default argument of 1.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Fri, 06 Feb 2009 03:59:15 +0000 |
parents | 50a9b1249468 |
children | 0750b250db3d |
comparison
equal
deleted
inserted
replaced
101827:ec4427ac212e | 101828:fde299e29d94 |
---|---|
3217 With prefix ARG, kill that many lines starting from the current line. | 3217 With prefix ARG, kill that many lines starting from the current line. |
3218 If ARG is negative, kill backward. Also kill the preceding newline. | 3218 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))) |
3225 (signal 'beginning-of-buffer nil)) | 3226 (signal 'beginning-of-buffer nil)) |
3226 (unless (eq last-command 'kill-region) | 3227 (unless (eq last-command 'kill-region) |