From: Eli Zaretskii <eliz@gnu.org>
Date: Sun, 4 Feb 2007 16:02:32 +0000 (+0000)
Subject: (widget-default-create): Insert new text at the :from marker _after_ the
X-Git-Tag: emacs-pretest-22.0.94~397
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e0f95693512fa487411cd9d5f8fbed369941b2af;p=emacs.git

(widget-default-create): Insert new text at the :from marker _after_ the
marker, not before it.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f473cdbb038..477df137161 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-02-04  Per Abrahamsen  <abraham@dina.kvl.dk>
+
+	* wid-edit.el (widget-default-create): Insert new text at the
+	:from marker _after_ the marker, not before it.
+
 2007-02-04  Alan Mackenzie  <acm@muc.de>
 
 	* progmodes/cc-cmds.el (c-indent-line): Don't erase ^L when a line
diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index 2e11b655752..d0ff5c0b956 100644
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -1509,7 +1509,7 @@ If that does not exists, call the value of `widget-complete-field'."
        (widget-apply widget :value-create)))
    (let ((from (point-min-marker))
 	 (to (point-max-marker)))
-     (set-marker-insertion-type from t)
+     (set-marker-insertion-type from nil)
      (set-marker-insertion-type to nil)
      (widget-put widget :from from)
      (widget-put widget :to to)))