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

isn't fboundp.

(tooltip-mode): Signal an error if x-show-tip
isn't fboundp.
c6da4eb4 · Gerd Moellmann · 6d34f495 · c6da4eb4 · c6da4eb4
Commit c6da4eb4 authored Dec 18, 2000 by Gerd Moellmann
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 0 deletions

lisp/ChangeLog lisp/ChangeLog +3 -0

lisp/tooltip.el lisp/tooltip.el +2 -0

No files found.
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
 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.


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