(tooltip-mode): Signal an error if x-show-tip

isn't fboundp.

2 files changed, 5 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1596b093cca..3ef378073ea 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2000-12-18  Gerd Moellmann  <gerd@gnu.org>
 
+        * tooltip.el (tooltip-mode): Signal an error if x-show-tip
+        isn't fboundp.
+
         * server.el (server-buffer-done): Bury the buffer before
         killing it.
 
diff --git a/lisp/tooltip.el b/lisp/tooltip.el
index dada23d0c2e..e02eec71884 100644
--- a/lisp/tooltip.el
+++ b/lisp/tooltip.el
@@ -197,6 +197,8 @@ This might return nil if the event did not occur over a buffer."
   "Mode for tooltip display.
 With ARG, turn tooltip mode on if and only if ARG is positive."
   (interactive "P")
+  (unless (fboundp 'x-show-tip)
+    (error "Sorry, tooltips are not yet available on this system"))
   (let* ((on (if arg
                  (> (prefix-numeric-value arg) 0)
                (not tooltip-mode)))