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." |
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 |
|
|