(tooltip-mode): Signal an error if x-show-tip
isn't fboundp.
This commit is contained in:
parent
6d34f49569
commit
c6da4eb44f
2 changed files with 5 additions and 0 deletions
|
@ -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.
|
||||
|
||||
|
|
|
@ -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)))
|
||||
|
|
Loading…
Add table
Reference in a new issue