summaryrefslogtreecommitdiff
path: root/lisp/tooltip.el
diff options
context:
space:
mode:
authorStefan Monnier <monnier@iro.umontreal.ca>2005-03-10 14:45:31 +0000
committerStefan Monnier <monnier@iro.umontreal.ca>2005-03-10 14:45:31 +0000
commitef75a6477366c638e58c8660eb9e0ccfbde85c49 (patch)
tree037a9ecae2376b68c032a7ba24e504bdbcdf486e /lisp/tooltip.el
parent449808f757acf51ff61875c5c32dfa3000a72f24 (diff)
downloademacs-ef75a6477366c638e58c8660eb9e0ccfbde85c49.tar.gz
(tooltip-mode): Don't complain that you can't turn the
feature ON when the user requests to turn it OFF.
Diffstat (limited to 'lisp/tooltip.el')
-rw-r--r--lisp/tooltip.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/tooltip.el b/lisp/tooltip.el
index 6d81ee39d7f..e4cab1beba1 100644
--- a/lisp/tooltip.el
+++ b/lisp/tooltip.el
@@ -188,7 +188,7 @@ This might return nil if the event did not occur over a buffer."
With ARG, turn tooltip mode on if and only if ARG is positive."
:global t
:group 'tooltip
- (unless (fboundp 'x-show-tip)
+ (unless (or (null tooltip-mode) (fboundp 'x-show-tip))
(error "Sorry, tooltips are not yet available on this system"))
(let ((hook-fn (if tooltip-mode 'add-hook 'remove-hook)))
(funcall hook-fn 'change-major-mode-hook 'tooltip-change-major-mode)