(tooltip-mode): Specify correct standard value for Custom in init-value.

1 files changed, 6 insertions, 0 deletions

diff --git a/lisp/tooltip.el b/lisp/tooltip.el
index 59f82c12e31..f0620003cd6 100644
--- a/lisp/tooltip.el
+++ b/lisp/tooltip.el
@@ -187,6 +187,12 @@ This might return nil if the event did not occur over a buffer."
   "Toggle Tooltip display.
 With ARG, turn tooltip mode on if and only if ARG is positive."
   :global t
+  ;; If you change the :init-value below, you also need to change the
+  ;; corresponding code in startup.el.
+  :init-value (not (or noninteractive
+                       emacs-quick-startup
+                       (not (display-graphic-p))
+                       (not (fboundp 'x-show-tip))))
   :group 'tooltip
   (unless (or (null tooltip-mode) (fboundp 'x-show-tip))
     (error "Sorry, tooltips are not yet available on this system"))