From: Gerd Moellmann <gerd@gnu.org>
Date: Mon, 5 Feb 2001 10:16:47 +0000 (+0000)
Subject: (next-line): Goto end-of-line before inserting a newline.
X-Git-Tag: emacs-pretest-21.0.98~171
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=24886813f4f38a858cf31be5c9c1f434d722ed29;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fb98d98b7e6..9af4910ea9a 100644
--- 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 9078e6aa21e..d04a3b0091e 100644
--- 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