(widget-echo-help): Make it handle expressions that evaluate to
strings.
This commit is contained in:
parent
55f57de7d7
commit
3b26f44c9e
1 changed files with 1 additions and 2 deletions
|
@ -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:
|
||||
|
||||
|
|
Loading…
Add table
Reference in a new issue