mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-20 18:17:20 +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. "Toggle Tooltip display.
With ARG, turn tooltip mode on if and only if ARG is positive." With ARG, turn tooltip mode on if and only if ARG is positive."
:global t :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 :init-value (not (or noninteractive
(and (boundp 'emacs-quick-startup) emacs-quick-startup) emacs-quick-startup
(not (and (fboundp 'display-graphic-p) (not (display-graphic-p))
(display-graphic-p)))
(not (fboundp 'x-show-tip)))) (not (fboundp 'x-show-tip))))
:initialize 'custom-initialize-safe-default
:group 'tooltip :group 'tooltip
(unless (or (null tooltip-mode) (fboundp 'x-show-tip)) (unless (or (null tooltip-mode) (fboundp 'x-show-tip))
(error "Sorry, tooltips are not yet available on this system")) (error "Sorry, tooltips are not yet available on this system"))