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

isn't fboundp.
This commit is contained in:
Gerd Moellmann 2000-12-18 17:11:17 +00:00
parent 6d34f49569
commit c6da4eb44f
2 changed files with 5 additions and 0 deletions

View file

@ -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.

View file

@ -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)))