changeset 64258:07d8968e1e9c

(command-line): Revert to previous handling of tooltip-mode. Explain in comment why the complexity is needed.
author Luc Teirlinck <teirllm@auburn.edu>
date Tue, 12 Jul 2005 20:15:57 +0000
parents 808b36b5395e
children 93dfebcaefcf
files lisp/startup.el
diffstat 1 files changed, 12 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/startup.el	Tue Jul 12 20:14:40 2005 +0000
+++ b/lisp/startup.el	Tue Jul 12 20:15:57 2005 +0000
@@ -752,7 +752,18 @@
   ;; are not set.
   (custom-reevaluate-setting 'blink-cursor-mode)
   (custom-reevaluate-setting 'normal-erase-is-backspace)
-  (custom-reevaluate-setting 'tooltip-mode)
+
+  ;; If you change the code below, you need to also change the
+  ;; corresponding code in the tooltip-mode defcustom.  The two need
+  ;; to be equivalent under all conditions, or Custom will get confused.
+  ;; We can not use `custom-reevaluate-setting' here, because it would
+  ;; load the tooltip library on systems for which that does not make sense.
+
+   (unless (or noninteractive
+               emacs-basic-display
+               (not (display-graphic-p))
+               (not (fboundp 'x-show-tip)))
+     (tooltip-mode 1))
 
   ;; Register default TTY colors for the case the terminal hasn't a
   ;; terminal init file.