Mercurial > emacs
changeset 52245:1f6577b47562
(widget-echo-help): Make it handle expressions that evaluate to
strings.
| author | Luc Teirlinck <teirllm@auburn.edu> |
|---|---|
| date | Mon, 18 Aug 2003 22:48:44 +0000 |
| parents | 17b69f3a71fa |
| children | dafe00f2eaab |
| files | lisp/wid-edit.el |
| diffstat | 1 files changed, 1 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/wid-edit.el Mon Aug 18 22:46:02 2003 +0000 +++ b/lisp/wid-edit.el Mon Aug 18 22:48:44 2003 +0000 @@ -3485,8 +3485,7 @@ (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: