From: Luc Teirlinck <teirllm@auburn.edu>
Date: Sat, 16 Apr 2005 00:21:56 +0000 (+0000)
Subject: (tooltip-mode): Specify correct standard value for Custom in init-value.
X-Git-Tag: ttn-vms-21-2-B4~978
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d5e2843d274a95d548f5c512f7251dae8f02b94a;p=emacs.git

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

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"))