159 |
"Toggle Tooltip display. |
"Toggle Tooltip display. |
160 |
With ARG, turn tooltip mode on if and only if ARG is positive." |
With ARG, turn tooltip mode on if and only if ARG is positive." |
161 |
:global t |
:global t |
|
;; If you change the :init-value below, you also need to change the |
|
|
;; corresponding code in startup.el. |
|
162 |
:init-value (not (or noninteractive |
:init-value (not (or noninteractive |
163 |
(and (boundp 'emacs-quick-startup) emacs-quick-startup) |
emacs-quick-startup |
164 |
(not (and (fboundp 'display-graphic-p) |
(not (display-graphic-p)) |
|
(display-graphic-p))) |
|
165 |
(not (fboundp 'x-show-tip)))) |
(not (fboundp 'x-show-tip)))) |
166 |
|
:initialize 'custom-initialize-safe-default |
167 |
:group 'tooltip |
:group 'tooltip |
168 |
(unless (or (null tooltip-mode) (fboundp 'x-show-tip)) |
(unless (or (null tooltip-mode) (fboundp 'x-show-tip)) |
169 |
(error "Sorry, tooltips are not yet available on this system")) |
(error "Sorry, tooltips are not yet available on this system")) |