From e56031492e42b2c6a7f2c6e35b0e5b717208ad2b Mon Sep 17 00:00:00 2001
From: Gerd Moellmann <gerd@gnu.org>
Date: Thu, 14 Dec 2000 10:35:22 +0000
Subject: [PATCH] (tooltip-show): If an error is signaled in x-show-tip,
 display that error, and display the help in the echo area.

---
 lisp/tooltip.el | 18 ++++++++++++------
 1 file 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.
-- 
2.39.2