Commit e5603149 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(tooltip-show): If an error is signaled in

x-show-tip, display that error, and display the help in the
echo area.
parent a924cf63
...@@ -308,12 +308,18 @@ ACTIVATEP non-nil means activate mouse motion events." ...@@ -308,12 +308,18 @@ ACTIVATEP non-nil means activate mouse motion events."
"Show a tooltip window at the current mouse position displaying TEXT." "Show a tooltip window at the current mouse position displaying TEXT."
(if tooltip-use-echo-area (if tooltip-use-echo-area
(message "%s" text) (message "%s" text)
(x-show-tip text (condition-case error
(selected-frame) (x-show-tip text
tooltip-frame-parameters (selected-frame)
nil tooltip-frame-parameters
tooltip-x-offset nil
tooltip-y-offset))) 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) (defun tooltip-hide (&optional ignored-arg)
"Hide a tooltip, if one is displayed. "Hide a tooltip, if one is displayed.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment