The following patch to tooltip.el simplifies the standard value of the
tooltip-mode defcustom further than my original version.
The remaining `(fboundp 'x-show-tip)' is really necessary, even after
startup.
===File ~/tooltip.el-diff===================================
*** tooltip.el 04 Jul 2005 19:51:10 -0500 1.60
--- tooltip.el 08 Jul 2005 21:39:53 -0500
***************
*** 162,171 ****
;; If you change the :init-value below, you also need to change the
;; corresponding code in startup.el.
:init-value (not (or noninteractive
! (and (boundp 'emacs-quick-startup) emacs-quick-startup)
! (not (and (fboundp 'display-graphic-p)
! (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"))
--- 162,171 ----
;; 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))))
+ :initialize 'custom-initialize-safe-default
:group 'tooltip
(unless (or (null tooltip-mode) (fboundp 'x-show-tip))
(error "Sorry, tooltips are not yet available on this system"))
============================================================
_______________________________________________
Emacs-devel mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-devel
