(next-line): Goto end-of-line before inserting a newline.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fb98d98b7e6cba8a62510083b1395a3724c7aa7c..9af4910ea9a5eb8fac25e81014b4e48256f9995b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2001-02-05  Gerd Moellmann  <gerd@gnu.org>
+
+       * simple.el (next-line): Goto end-of-line before inserting a newline.
+
 2001-02-05  Miles Bader  <miles@gnu.org>
 
        * image-file.el (insert-image-file): When visiting an image, also

diff --git a/lisp/simple.el b/lisp/simple.el
index 9078e6aa21ede7751d0fc32d76571a5775c7dba5..d04a3b0091e33475524fb3b07ced30b45442a656 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -2408,7 +2408,8 @@ and more reliable (no dependence on goal column, etc.)."
       (if (save-excursion (end-of-line) (eobp))
          ;; When adding a newline, don't expand an abbrev.
          (let ((abbrev-mode nil))
-           (newline 1))
+           (end-of-line)
+           (insert "\n"))
        (line-move arg))
     (if (interactive-p)
        (condition-case nil