diff options
| author | Luc Teirlinck <teirllm@auburn.edu> | 2005-07-10 16:40:11 +0000 |
|---|---|---|
| committer | Luc Teirlinck <teirllm@auburn.edu> | 2005-07-10 16:40:11 +0000 |
| commit | 9ccfc415b92022867ffd1e6b57e7db78b30f49d7 (patch) | |
| tree | 476f58e6343b075d21864e21f2796a90a62a8588 /lisp/tooltip.el | |
| parent | 93ad71f8230961a48b21640bd883e2656185c041 (diff) | |
| download | emacs-9ccfc415b92022867ffd1e6b57e7db78b30f49d7.tar.gz | |
(tooltip-mode): Use custom-initialize-safe-default and simplify
:init-value. Delete obsolete comment.
Diffstat (limited to 'lisp/tooltip.el')
| -rw-r--r-- | lisp/tooltip.el | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/lisp/tooltip.el b/lisp/tooltip.el index fabb154d7ed..169ffafbbef 100644 --- a/lisp/tooltip.el +++ b/lisp/tooltip.el @@ -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")) |