Mercurial > emacs
diff lisp/wid-edit.el @ 90776:dd7c098af727
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 638-652)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 202)
- Update from CVS
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-177
author | Miles Bader <miles@gnu.org> |
---|---|
date | Mon, 26 Feb 2007 23:03:45 +0000 |
parents | 52a7f3f50b89 3c33fbf5dc8a |
children | e6fdae9180d4 |
line wrap: on
line diff
--- a/lisp/wid-edit.el Fri Feb 23 06:03:48 2007 +0000 +++ b/lisp/wid-edit.el Mon Feb 26 23:03:45 2007 +0000 @@ -404,7 +404,7 @@ ;; 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 @@ (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 @@ ;;; 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 preceded +by some other text in the `:format' string (if specified)." :convert-widget 'widget-value-convert-widget :keymap widget-field-keymap :format "%v"