From 72200f8916f871e13e0b7cd8fc3885b72bea4ced Mon Sep 17 00:00:00 2001 From: Sam Steingold Date: Thu, 12 Oct 2000 17:02:19 +0000 Subject: [PATCH] * tooltip.el (tooltip-use-echo-area): New user variable. (tooltip-show): Use it to choose between `x-show-tip' and `message'. --- lisp/ChangeLog | 5 +++++ lisp/tooltip.el | 11 +++++++++-- 2 files changed, 14 insertions(+), 2 deletions(-) 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 + + * 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 * 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. -- 2.39.5