# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1289568722 18000
# Node ID e21371bab7173d9a1edc19a4918b5d76b0fa3003
# Parent  7b9b95f705e11393cf42dd4478f24a1c4aa1d3b6
* lisp/simple.el (open-line): `newline' may strip trailing space.

diff -r 7b9b95f705e1 -r e21371bab717 lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Nov 12 08:28:17 2010 -0500
+++ b/lisp/ChangeLog	Fri Nov 12 08:32:02 2010 -0500
@@ -1,3 +1,7 @@
+2010-11-12  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* simple.el (open-line): `newline' may strip trailing space.
+
 2010-11-12  Kevin Ryde  <user42@zip.com.au>
 
 	* international/mule-cmds.el (princ-list): Use mapc.
diff -r 7b9b95f705e1 -r e21371bab717 lisp/simple.el
--- a/lisp/simple.el	Fri Nov 12 08:28:17 2010 -0500
+++ b/lisp/simple.el	Fri Nov 12 08:32:02 2010 -0500
@@ -512,7 +512,7 @@
   (interactive "*p")
   (let* ((do-fill-prefix (and fill-prefix (bolp)))
 	 (do-left-margin (and (bolp) (> (current-left-margin) 0)))
-	 (loc (point))
+	 (loc (point-marker))
 	 ;; Don't expand an abbrev before point.
 	 (abbrev-mode nil))
     (newline n)