Mercurial > emacs
comparison lisp/simple.el @ 66968:7db78a409419
* simple.el (next-line): Use hard-newline.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Thu, 17 Nov 2005 18:21:37 +0000 |
| parents | 151367ca2353 |
| children | 775cde85fe0a |
comparison
equal
deleted
inserted
replaced
| 66967:151367ca2353 | 66968:7db78a409419 |
|---|---|
| 3324 (if (and next-line-add-newlines (= arg 1)) | 3324 (if (and next-line-add-newlines (= arg 1)) |
| 3325 (if (save-excursion (end-of-line) (eobp)) | 3325 (if (save-excursion (end-of-line) (eobp)) |
| 3326 ;; When adding a newline, don't expand an abbrev. | 3326 ;; When adding a newline, don't expand an abbrev. |
| 3327 (let ((abbrev-mode nil)) | 3327 (let ((abbrev-mode nil)) |
| 3328 (end-of-line) | 3328 (end-of-line) |
| 3329 (insert "\n")) | 3329 (insert hard-newline)) |
| 3330 (line-move arg nil nil try-vscroll)) | 3330 (line-move arg nil nil try-vscroll)) |
| 3331 (if (interactive-p) | 3331 (if (interactive-p) |
| 3332 (condition-case nil | 3332 (condition-case nil |
| 3333 (line-move arg nil nil try-vscroll) | 3333 (line-move arg nil nil try-vscroll) |
| 3334 ((beginning-of-buffer end-of-buffer) (ding))) | 3334 ((beginning-of-buffer end-of-buffer) (ding))) |