mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-03 11:33:37 +00:00
Code Issues Releases Activity

(tooltip-mode): Use custom-initialize-safe-default and simplify

Browse Source 
:init-value.  Delete obsolete comment.
This commit is contained in:
Luc Teirlinck 2005-07-10 16:40:11 +00:00
parent 93ad71f823
commit 9ccfc415b9
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/tooltip.el
View File

@ -159,13 +159,11 @@ 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
(and (boundp 'emacs-quick-startup) emacs-quick-startup)
(not (and (fboundp 'display-graphic-p)
(display-graphic-p)))
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"))