From: Luc Teirlinck <teirllm@auburn.edu>
Date: Mon, 18 Aug 2003 22:48:44 +0000 (+0000)
Subject: (widget-echo-help): Make it handle expressions that evaluate to
X-Git-Tag: ttn-vms-21-2-B4~9060
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3b26f44c9ed2c50c1de88bf9bd650cc08fb97ed4;p=emacs.git

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

diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index ff65fb56e59..f1287e43e50 100644
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -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: