diff options
| author | Luc Teirlinck <teirllm@auburn.edu> | 2003-08-18 22:48:44 +0000 |
|---|---|---|
| committer | Luc Teirlinck <teirllm@auburn.edu> | 2003-08-18 22:48:44 +0000 |
| commit | 3b26f44c9ed2c50c1de88bf9bd650cc08fb97ed4 (patch) | |
| tree | bc0f131c0bc41217a0437b587bdb01e3d1adddd2 /lisp/wid-edit.el | |
| parent | 55f57de7d7ea8041ab96a3be7ebe20930bae741f (diff) | |
| download | emacs-3b26f44c9ed2c50c1de88bf9bd650cc08fb97ed4.tar.gz | |
(widget-echo-help): Make it handle expressions that evaluate to
strings.
Diffstat (limited to 'lisp/wid-edit.el')
| -rw-r--r-- | lisp/wid-edit.el | 3 |
1 files changed, 1 insertions, 2 deletions
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: |