diff lisp/tooltip.el @ 32431:a35cc9700ff7

* tooltip.el (tooltip-use-echo-area): New user variable. (tooltip-show): Use it to choose between `x-show-tip' and `message'.

--- 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.