diff options
author | Gerd Moellmann <gerd@gnu.org> | 2000-12-14 10:35:22 +0000 |
---|---|---|
committer | Gerd Moellmann <gerd@gnu.org> | 2000-12-14 10:35:22 +0000 |
commit | 8a7a4334f37231e1a07804735a5b80d73c2178e0 (patch) | |
tree | b136586efe6512de6234dd97c432224f8a94edef /lisp/tooltip.el | |
parent | 64496d640c079c9a906445e33a1326df13e7e7c7 (diff) | |
download | emacs-8a7a4334f37231e1a07804735a5b80d73c2178e0.tar.gz |
(tooltip-show): If an error is signaled in
x-show-tip, display that error, and display the help in the
echo area.
Diffstat (limited to 'lisp/tooltip.el')
-rw-r--r-- | lisp/tooltip.el | 18 |
1 files changed, 12 insertions, 6 deletions
diff --git a/lisp/tooltip.el b/lisp/tooltip.el index 9ad338418c2..dada23d0c2e 100644 --- a/lisp/tooltip.el +++ b/lisp/tooltip.el @@ -308,12 +308,18 @@ ACTIVATEP non-nil means activate mouse motion events." "Show a tooltip window at the current mouse position displaying TEXT." (if tooltip-use-echo-area (message "%s" text) - (x-show-tip text - (selected-frame) - tooltip-frame-parameters - nil - tooltip-x-offset - tooltip-y-offset))) + (condition-case error + (x-show-tip text + (selected-frame) + tooltip-frame-parameters + nil + tooltip-x-offset + tooltip-y-offset) + (error + (message "Error while displaying tooltip: %s" error) + (sit-for 1) + (message "%s" text))))) + (defun tooltip-hide (&optional ignored-arg) "Hide a tooltip, if one is displayed. |