From 8a7a4334f37231e1a07804735a5b80d73c2178e0 Mon Sep 17 00:00:00 2001
From: Gerd Moellmann <gerd@gnu.org>
Date: Thu, 14 Dec 2000 10:35:22 +0000
Subject: (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(-)

(limited to 'lisp')

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.
-- 
cgit v1.2.1