Mercurial > emacs
diff lisp/tooltip.el @ 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 | e1e4704de6ed |
children | f7ca93e40e16 |
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)))