(widget-echo-help): Make it handle expressions that evaluate to

strings.
This commit is contained in:
Luc Teirlinck 2003-08-18 22:48:44 +00:00
parent 55f57de7d7
commit 3b26f44c9e

View file

@ -3485,8 +3485,7 @@ To use this type, you must define :match or :match-alternatives."
(help-echo (and widget (widget-get widget :help-echo))))
(if (functionp help-echo)
(setq help-echo (funcall help-echo widget)))
(if (stringp help-echo)
(message "%s" help-echo))))
(if help-echo (message "%s" (eval help-echo)))))
;;; The End: