diff options
| author | Dave Love <fx@gnu.org> | 2000-09-13 10:34:52 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 2000-09-13 10:34:52 +0000 |
| commit | 820d41817cb716f55e908ee06d365f6c58ed180d (patch) | |
| tree | d4c875372d72df786a8bdde3c78fba6a31d10268 /lisp/wid-edit.el | |
| parent | f860896845735249a1341dbbb14c7c198731cce3 (diff) | |
| download | emacs-820d41817cb716f55e908ee06d365f6c58ed180d.tar.gz | |
(widget-default-format-handler): DTRT when
doc-property is a function.
Diffstat (limited to 'lisp/wid-edit.el')
| -rw-r--r-- | lisp/wid-edit.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el index edc1ef68560..a17d6b83e5b 100644 --- a/lisp/wid-edit.el +++ b/lisp/wid-edit.el @@ -1302,13 +1302,13 @@ If that does not exists, call the value of `widget-complete-field'." (cond ((eq escape ?h) (let* ((doc-property (widget-get widget :documentation-property)) (doc-try (cond ((widget-get widget :doc)) + ((functionp doc-property) + (funcall doc-property + (widget-get widget :value))) ((symbolp doc-property) (documentation-property (widget-get widget :value) - doc-property)) - (t - (funcall doc-property - (widget-get widget :value))))) + doc-property)))) (doc-text (and (stringp doc-try) (> (length doc-try) 1) doc-try)) @@ -1635,7 +1635,7 @@ If END is omitted, it defaults to the length of LIST." :action 'widget-field-action :validate 'widget-field-validate :valid-regexp "" - :error "Field's value doesn't match allowed form" + :error "Field's value doesn't match allowed forms" :value-create 'widget-field-value-create :value-delete 'widget-field-value-delete :value-get 'widget-field-value-get |