diff options
| author | Nick Roberts <nickrob@snap.net.nz> | 2005-06-14 21:13:28 +0000 |
|---|---|---|
| committer | Nick Roberts <nickrob@snap.net.nz> | 2005-06-14 21:13:28 +0000 |
| commit | 90aff7c61e0237008eba184ef01e06c8026cecfe (patch) | |
| tree | 099432ce106b46442ecbad48db069740c3bf99ab /lisp/tooltip.el | |
| parent | 3da629bdb6bed0988acef6899fa1b3ad023baf18 (diff) | |
| download | emacs-90aff7c61e0237008eba184ef01e06c8026cecfe.tar.gz emacs-90aff7c61e0237008eba184ef01e06c8026cecfe.tar.bz2 emacs-90aff7c61e0237008eba184ef01e06c8026cecfe.zip | |
* tooltip.el (tooltip-use-echo-area): Restore from gud.el for
backward compatibility and make obsolete.
(tooltip-help-tips): Use tooltip-use-echo-area.
(tooltip-show-help-function): Rename to...
(tooltip-show-help): ...this, because it is a function.
(tooltip-mode, tooltip-help-message): Call tooltip-show-help.
Diffstat (limited to 'lisp/tooltip.el')
| -rw-r--r-- | lisp/tooltip.el | 19 |
1 files changed, 15 insertions, 4 deletions
diff --git a/lisp/tooltip.el b/lisp/tooltip.el index 7a2865b9dfa..904f2bf8770 100644 --- a/lisp/tooltip.el +++ b/lisp/tooltip.el @@ -113,6 +113,17 @@ position to pop up the tooltip." "Face for tooltips." :group 'tooltip) +(defcustom tooltip-use-echo-area nil + "Use the echo area instead of tooltip frames for help and GUD tooltips." + :type 'boolean + :tag "Use echo area" + :group 'tooltip) + +(make-obsolete-variable 'tooltip-use-echo-area +"To display help tooltips in the echo area turn tooltip-mode off. +To display GUD tooltips in the echo area turn gud-tooltip-mode on and set +gud-tooltip-echo-area to t." "22.1") + ;;; Variables that are not customizable. @@ -169,7 +180,7 @@ With ARG, turn tooltip mode on if and only if ARG is positive." (remove-hook 'pre-command-hook 'tooltip-hide)) (remove-hook 'tooltip-hook 'tooltip-help-tips)) (setq show-help-function - (if tooltip-mode 'tooltip-show-help-function nil))) + (if tooltip-mode 'tooltip-show-help nil))) ;;; Timeout for tooltip display @@ -314,9 +325,9 @@ of PROCESS." ;;; Tooltip help. (defvar tooltip-help-message nil - "The last help message received via `tooltip-show-help-function'.") + "The last help message received via `tooltip-show-help'.") -(defun tooltip-show-help-function (msg) +(defun tooltip-show-help (msg) "Function installed as `show-help-function'. MSG is either a help string to display, or nil to cancel the display." (let ((previous-help tooltip-help-message)) @@ -341,7 +352,7 @@ This is installed on the hook `tooltip-hook', which is run when the timer with ID `tooltip-timeout-id' fires. Value is non-nil if this function handled the tip." (when (stringp tooltip-help-message) - (tooltip-show tooltip-help-message) + (tooltip-show tooltip-help-message tooltip-use-echo-area) t)) (provide 'tooltip) |