/[emacs]/emacs/lisp/tooltip.el
ViewVC logotype

Diff of /emacs/lisp/tooltip.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.60 by lute, Mon Jul 4 23:08:58 2005 UTC revision 1.61 by teirllm, Sun Jul 10 16:40:11 2005 UTC
# Line 159  This might return nil if the event did n Line 159  This might return nil if the event did n
159    "Toggle Tooltip display.    "Toggle Tooltip display.
160  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."
161    :global t    :global t
   ;; If you change the :init-value below, you also need to change the  
   ;; corresponding code in startup.el.  
162    :init-value (not (or noninteractive    :init-value (not (or noninteractive
163                         (and (boundp 'emacs-quick-startup) emacs-quick-startup)                         emacs-quick-startup
164                         (not (and (fboundp 'display-graphic-p)                         (not (display-graphic-p))
                                  (display-graphic-p)))  
165                         (not (fboundp 'x-show-tip))))                         (not (fboundp 'x-show-tip))))
166      :initialize 'custom-initialize-safe-default
167    :group 'tooltip    :group 'tooltip
168    (unless (or (null tooltip-mode) (fboundp 'x-show-tip))    (unless (or (null tooltip-mode) (fboundp 'x-show-tip))
169      (error "Sorry, tooltips are not yet available on this system"))      (error "Sorry, tooltips are not yet available on this system"))

Legend:
Removed from v.1.60  
changed lines
  Added in v.1.61

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26