Mercurial > emacs
changeset 1556:fce86d06a758
* simple.el (previous-line): Doc fix.
* simple.el (kill-line): Don't shift point before doing the
delete.
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Sat, 07 Nov 1992 06:13:23 +0000 |
| parents | 695c6eb2ff31 |
| children | 816bfa185671 |
| files | lisp/simple.el |
| diffstat | 1 files changed, 4 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Sat Nov 07 06:12:42 1992 +0000 +++ b/lisp/simple.el Sat Nov 07 06:13:23 1992 +0000 @@ -816,7 +816,9 @@ a number counts as a prefix arg." (interactive "P") (kill-region (point) - (progn + ;; Don't shift point before doing the delete; that way, + ;; undo will record the right position of point. + (save-excursion (if arg (forward-line (prefix-numeric-value arg)) (if (eobp) @@ -1241,7 +1243,7 @@ Then it does not try to move vertically. If you are thinking of using this in a Lisp program, consider using -`forward-line' with negative argument instead.. It is usually easier +`forward-line' with a negative argument instead. It is usually easier to use and more reliable (no dependence on goal column, etc.)." (interactive "p") (line-move (- arg))