diff options
| author | Luc Teirlinck | 2003-08-18 22:48:44 +0000 |
|---|---|---|
| committer | Luc Teirlinck | 2003-08-18 22:48:44 +0000 |
| commit | 3b26f44c9ed2c50c1de88bf9bd650cc08fb97ed4 (patch) | |
| tree | bc0f131c0bc41217a0437b587bdb01e3d1adddd2 | |
| parent | 55f57de7d7ea8041ab96a3be7ebe20930bae741f (diff) | |
| download | emacs-3b26f44c9ed2c50c1de88bf9bd650cc08fb97ed4.tar.gz emacs-3b26f44c9ed2c50c1de88bf9bd650cc08fb97ed4.zip | |
(widget-echo-help): Make it handle expressions that evaluate to
strings.
| -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." | |||
| 3485 | (help-echo (and widget (widget-get widget :help-echo)))) | 3485 | (help-echo (and widget (widget-get widget :help-echo)))) |
| 3486 | (if (functionp help-echo) | 3486 | (if (functionp help-echo) |
| 3487 | (setq help-echo (funcall help-echo widget))) | 3487 | (setq help-echo (funcall help-echo widget))) |
| 3488 | (if (stringp help-echo) | 3488 | (if help-echo (message "%s" (eval help-echo))))) |
| 3489 | (message "%s" help-echo)))) | ||
| 3490 | 3489 | ||
| 3491 | ;;; The End: | 3490 | ;;; The End: |
| 3492 | 3491 | ||