From: Kim F. Storm <storm@cua.dk>
Date: Thu, 22 Feb 2007 00:32:51 +0000 (+0000)
Subject: (widget-default-create): Undo 2007-02-04 change.
X-Git-Tag: emacs-pretest-22.0.94~47
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3bff434b8f6ac69a84c8777c1b88d43cb9d2534f;p=emacs.git

(widget-default-create): Undo 2007-02-04 change.
(editable-field): Document need to put some text before the %v
escape in :format string.
---

diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index d0ff5c0b956..1f2dba79439 100644
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -404,7 +404,7 @@ new value.")
     ;; We want to avoid the face with image buttons.
     (unless (widget-get widget :suppress-face)
       (overlay-put overlay 'face (widget-apply widget :button-face-get))
-      (overlay-put overlay 'mouse-face 
+      (overlay-put overlay 'mouse-face
 		   (widget-apply widget :mouse-face-get)))
     (overlay-put overlay 'pointer 'hand)
     (overlay-put overlay 'follow-link follow-link)
@@ -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 nil)
+     (set-marker-insertion-type from t)
      (set-marker-insertion-type to nil)
      (widget-put widget :from from)
      (widget-put widget :to to)))
@@ -1852,7 +1852,9 @@ If END is omitted, it defaults to the length of LIST."
 ;;; The `editable-field' Widget.
 
 (define-widget 'editable-field 'default
-  "An editable text field."
+  "An editable text field.
+Note: In an `editable-field' widget, the `%v' escape must be preceeded
+by some other text in the `:format' string (if specified)."
   :convert-widget 'widget-value-convert-widget
   :keymap widget-field-keymap
   :format "%v"