changeset 34689:e045e0e60223

(tooltip-mode): Signal an error if x-show-tip isn't fboundp.
author Gerd Moellmann <gerd@gnu.org>
date Mon, 18 Dec 2000 17:10:50 +0000
parents 8f397d03b992
children 971ef1cef2cd
files lisp/tooltip.el
diffstat 1 files changed, 2 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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)))