From c6da4eb44f849a605e424880b4be609876803829 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Mon, 18 Dec 2000 17:11:17 +0000 Subject: [PATCH] (tooltip-mode): Signal an error if x-show-tip isn't fboundp. --- lisp/ChangeLog | 3 +++ lisp/tooltip.el | 2 ++ 2 files changed, 5 insertions(+) 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 + * 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))) -- 2.39.2