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))) |