Commit 820d4181 authored by Dave Love's avatar Dave Love
Browse files

(widget-default-format-handler): DTRT when

doc-property is a function.
parent f8608968
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment