# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 977159450 0
# Node ID e045e0e60223083dde945043364f3be8d3250ece
# Parent  8f397d03b992bdb7b1aff7267dd0fe651a653145
(tooltip-mode): Signal an error if x-show-tip
isn't fboundp.

diff -r 8f397d03b992 -r e045e0e60223 lisp/tooltip.el
--- a/lisp/tooltip.el	Mon Dec 18 17:10:08 2000 +0000
+++ b/lisp/tooltip.el	Mon Dec 18 17:10:50 2000 +0000
@@ -197,6 +197,8 @@
   "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)))