Mercurial > emacs
comparison lisp/simple.el @ 35886:65f3042831db
(next-line): Goto end-of-line before inserting a newline.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Mon, 05 Feb 2001 10:16:14 +0000 |
| parents | 7ae7252c53c9 |
| children | 5a41fb5ed099 |
comparison
equal
deleted
inserted
replaced
| 35885:df78441cfb25 | 35886:65f3042831db |
|---|---|
| 2406 (interactive "p") | 2406 (interactive "p") |
| 2407 (if (and next-line-add-newlines (= arg 1)) | 2407 (if (and next-line-add-newlines (= arg 1)) |
| 2408 (if (save-excursion (end-of-line) (eobp)) | 2408 (if (save-excursion (end-of-line) (eobp)) |
| 2409 ;; When adding a newline, don't expand an abbrev. | 2409 ;; When adding a newline, don't expand an abbrev. |
| 2410 (let ((abbrev-mode nil)) | 2410 (let ((abbrev-mode nil)) |
| 2411 (newline 1)) | 2411 (end-of-line) |
| 2412 (insert "\n")) | |
| 2412 (line-move arg)) | 2413 (line-move arg)) |
| 2413 (if (interactive-p) | 2414 (if (interactive-p) |
| 2414 (condition-case nil | 2415 (condition-case nil |
| 2415 (line-move arg) | 2416 (line-move arg) |
| 2416 ((beginning-of-buffer end-of-buffer) (ding))) | 2417 ((beginning-of-buffer end-of-buffer) (ding))) |