/[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.41 by nickrob, Wed Mar 9 23:19:00 2005 UTC revision 1.42 by monnier, Thu Mar 10 14:45:31 2005 UTC
# Line 188  This might return nil if the event did n Line 188  This might return nil if the event did n
188  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."
189    :global t    :global t
190    :group 'tooltip    :group 'tooltip
191    (unless (fboundp 'x-show-tip)    (unless (or (null tooltip-mode) (fboundp 'x-show-tip))
192      (error "Sorry, tooltips are not yet available on this system"))      (error "Sorry, tooltips are not yet available on this system"))
193    (let ((hook-fn (if tooltip-mode 'add-hook 'remove-hook)))    (let ((hook-fn (if tooltip-mode 'add-hook 'remove-hook)))
194      (funcall hook-fn 'change-major-mode-hook 'tooltip-change-major-mode)      (funcall hook-fn 'change-major-mode-hook 'tooltip-change-major-mode)

Legend:
Removed from v.1.41  
changed lines
  Added in v.1.42

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