From: Sam Steingold <sds@gnu.org>
Date: Thu, 12 Oct 2000 17:02:19 +0000 (+0000)
Subject: * tooltip.el (tooltip-use-echo-area): New user variable.
X-Git-Tag: emacs-pretest-21.0.90~927
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=72200f8916f871e13e0b7cd8fc3885b72bea4ced;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7f0978549a0..6e81cfb6b46 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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.
diff --git a/lisp/tooltip.el b/lisp/tooltip.el
index a7484dc7fd5..5950ff39308 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.