mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases Activity

* tooltip.el (tooltip-use-echo-area): New user variable.

Browse Source 
(tooltip-show): Use it to choose between `x-show-tip' and `message'.
This commit is contained in:
Sam Steingold 2000-10-12 17:02:19 +00:00
parent d0b40dc1c7
commit 72200f8916
2 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

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

11
lisp/tooltip.el
View File

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