diff options
| author | Kim F. Storm <storm@cua.dk> | 2007-02-22 00:32:51 +0000 |
|---|---|---|
| committer | Kim F. Storm <storm@cua.dk> | 2007-02-22 00:32:51 +0000 |
| commit | 3bff434b8f6ac69a84c8777c1b88d43cb9d2534f (patch) | |
| tree | 6a7a7b2ee86ebf113a3cf93095015a72eda4dc76 | |
| parent | 135e3b47ec43ea6c2d83c460f43fbacb8b8257e2 (diff) | |
| download | emacs-3bff434b8f6ac69a84c8777c1b88d43cb9d2534f.tar.gz | |
(widget-default-create): Undo 2007-02-04 change.
(editable-field): Document need to put some text before the %v
escape in :format string.
| -rw-r--r-- | lisp/wid-edit.el | 8 |
1 files changed, 5 insertions, 3 deletions
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" |