Mercurial > emacs
changeset 32431:a35cc9700ff7
* tooltip.el (tooltip-use-echo-area): New user variable.
(tooltip-show): Use it to choose between `x-show-tip' and `message'.
| author | Sam Steingold <sds@gnu.org> |
|---|---|
| date | Thu, 12 Oct 2000 17:02:19 +0000 |
| parents | 958a5e37e95d |
| children | 2b1871fcf25f |
| files | lisp/ChangeLog lisp/tooltip.el |
| diffstat | 2 files changed, 14 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu Oct 12 16:47:25 2000 +0000 +++ b/lisp/ChangeLog Thu Oct 12 17:02:19 2000 +0000 @@ -1,3 +1,8 @@ +2000-10-12 Sam Steingold <sds@gnu.org> + + * tooltip.el (tooltip-use-echo-area): New user variable. + (tooltip-show): Use it to choose between `x-show-tip' and `message'. + 2000-10-12 Dave Love <fx@gnu.org> * recentf.el: Maintainer's checkdoc fixes.
--- a/lisp/tooltip.el Thu Oct 12 16:47:25 2000 +0000 +++ b/lisp/tooltip.el Thu Oct 12 17:02:19 2000 +0000 @@ -115,6 +115,12 @@ :group 'tooltip) +(defcustom tooltip-use-echo-area nil + "Use the echo area instead of the actual tooltip windows." + :type 'boolean + :tag "use echo area" + :group 'tooltip) + ;;; Variables that are not customizable. @@ -271,8 +277,9 @@ (defun tooltip-show (text) "Show a tooltip window at the current mouse position displaying TEXT." - (x-show-tip text (selected-frame) tooltip-frame-parameters)) - + (if tooltip-use-echo-area + (message "%s" text) + (x-show-tip text (selected-frame) tooltip-frame-parameters))) (defun tooltip-hide (&optional ignored-arg) "Hide a tooltip, if one is displayed.