/[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.68 by rms, Sun Oct 23 18:31:25 2005 UTC revision 1.69 by nickrob, Sat Dec 10 21:28:59 2005 UTC
# Line 30  Line 30 
30  (defvar comint-prompt-regexp)  (defvar comint-prompt-regexp)
31    
32  ;;; Customizable settings  ;;; Customizable settings
33    ;;; Switching tooltips on/off
34    
35    ;; We don't set track-mouse globally because this is a big redisplay
36    ;; problem in buffers having a pre-command-hook or such installed,
37    ;; which does a set-buffer, like the summary buffer of Gnus.  Calling
38    ;; set-buffer prevents redisplay optimizations, so every mouse motion
39    ;; would be accompanied by a full redisplay.
40    
41    (define-minor-mode tooltip-mode
42      "Toggle Tooltip display.
43    With ARG, turn tooltip mode on if and only if ARG is positive."
44      :global t
45      :init-value (not (or noninteractive
46                           emacs-basic-display
47                           (not (display-graphic-p))
48                           (not (fboundp 'x-show-tip))))
49      :initialize 'custom-initialize-safe-default
50      :group 'tooltip
51      (unless (or (null tooltip-mode) (fboundp 'x-show-tip))
52        (error "Sorry, tooltips are not yet available on this system"))
53      (if tooltip-mode
54          (progn
55            (add-hook 'pre-command-hook 'tooltip-hide)
56            (add-hook 'tooltip-hook 'tooltip-help-tips))
57        (unless (and (boundp 'gud-tooltip-mode) gud-tooltip-mode)
58          (remove-hook 'pre-command-hook 'tooltip-hide))
59        (remove-hook 'tooltip-hook 'tooltip-help-tips))
60      (setq show-help-function
61            (if tooltip-mode 'tooltip-show-help nil)))
62    
63  (defgroup tooltip nil  (defgroup tooltip nil
64    "Customization group for the `tooltip' package."    "Customization group for the `tooltip' package."
# Line 145  This might return nil if the event did n Line 174  This might return nil if the event did n
174    (let ((window (posn-window (event-end event))))    (let ((window (posn-window (event-end event))))
175      (and window (window-buffer window))))      (and window (window-buffer window))))
176    
 ;;; Switching tooltips on/off  
   
 ;; We don't set track-mouse globally because this is a big redisplay  
 ;; problem in buffers having a pre-command-hook or such installed,  
 ;; which does a set-buffer, like the summary buffer of Gnus.  Calling  
 ;; set-buffer prevents redisplay optimizations, so every mouse motion  
 ;; would be accompanied by a full redisplay.  
   
 (define-minor-mode tooltip-mode  
   "Toggle Tooltip display.  
 With ARG, turn tooltip mode on if and only if ARG is positive."  
   :global t  
   :init-value (not (or noninteractive  
                        emacs-basic-display  
                        (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"))  
   (if tooltip-mode  
       (progn  
         (add-hook 'pre-command-hook 'tooltip-hide)  
         (add-hook 'tooltip-hook 'tooltip-help-tips))  
     (unless (and (boundp 'gud-tooltip-mode) gud-tooltip-mode)  
       (remove-hook 'pre-command-hook 'tooltip-hide))  
     (remove-hook 'tooltip-hook 'tooltip-help-tips))  
   (setq show-help-function  
         (if tooltip-mode 'tooltip-show-help nil)))  
   
177    
178  ;;; Timeout for tooltip display  ;;; Timeout for tooltip display
179    

Legend:
Removed from v.1.68  
changed lines
  Added in v.1.69

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