diff options
author | Sam Steingold <[email protected]> | 2000-10-12 17:02:19 +0000 |
---|---|---|
committer | Sam Steingold <[email protected]> | 2000-10-12 17:02:19 +0000 |
commit | 72200f8916f871e13e0b7cd8fc3885b72bea4ced (patch) | |
tree | 7f943c87d87fe823385cee91a62ad219614643a7 /lisp/tooltip.el | |
parent | d0b40dc1c7aafc2c4930c6bcf864bf2d5015738f (diff) |
* tooltip.el (tooltip-use-echo-area): New user variable.
(tooltip-show): Use it to choose between `x-show-tip' and `message'.
Diffstat (limited to 'lisp/tooltip.el')
-rw-r--r-- | lisp/tooltip.el | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/lisp/tooltip.el b/lisp/tooltip.el index a7484dc7fd..5950ff3930 100644 --- a/lisp/tooltip.el +++ b/lisp/tooltip.el @@ -115,6 +115,12 @@ only tooltips in the buffer containing the overlay arrow." :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 @@ ACTIVATEP non-nil means activate mouse motion events." (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. |