From: Gerd Moellmann <gerd@gnu.org>
Date: Thu, 9 Nov 2000 23:47:28 +0000 (+0000)
Subject: (command-line): Set the default tooltip-mode
X-Git-Tag: emacs-pretest-21.0.90~178
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3b73087ec0836d6c483818c8d4bea4385aec2c03;p=emacs.git

(command-line): Set the default tooltip-mode
to t for graphical displays which implement x-show-tip.
---

diff --git a/lisp/startup.el b/lisp/startup.el
index 1c0f9814cf1..8cc24039b12 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -765,6 +765,12 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
     (setq-default blink-cursor t)
     (blink-cursor-mode 1))
 
+  (when (and (not noninteractive)
+	     (display-graphic-p)
+	     (fboundp 'x-show-tip))
+    (setq-default tooltip-mode t)
+    (tooltip-mode 1))
+
   ;; Register default TTY colors for the case the terminal hasn't a
   ;; terminal init file.
   (or (memq window-system '(x w32))