188 |
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." |
189 |
:global t |
:global t |
190 |
:group 'tooltip |
:group 'tooltip |
191 |
(unless (fboundp 'x-show-tip) |
(unless (or (null tooltip-mode) (fboundp 'x-show-tip)) |
192 |
(error "Sorry, tooltips are not yet available on this system")) |
(error "Sorry, tooltips are not yet available on this system")) |
193 |
(let ((hook-fn (if tooltip-mode 'add-hook 'remove-hook))) |
(let ((hook-fn (if tooltip-mode 'add-hook 'remove-hook))) |
194 |
(funcall hook-fn 'change-major-mode-hook 'tooltip-change-major-mode) |
(funcall hook-fn 'change-major-mode-hook 'tooltip-change-major-mode) |