Mercurial > emacs
comparison lisp/tooltip.el @ 35401:c00e94a506a2
(tooltip-hide-delay): New user-option.
(tooltip-show): Use tooltip-hide-delay instead of the default.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Thu, 18 Jan 2001 14:38:45 +0000 |
| parents | d19eadb47c76 |
| children | cf803b8f08ad |
comparison
equal
deleted
inserted
replaced
| 35400:469f371f0206 | 35401:c00e94a506a2 |
|---|---|
| 70 | 70 |
| 71 (defcustom tooltip-recent-seconds 1 | 71 (defcustom tooltip-recent-seconds 1 |
| 72 "Display tooltips if changing tip items within this many seconds. | 72 "Display tooltips if changing tip items within this many seconds. |
| 73 Do so after `tooltip-short-delay'." | 73 Do so after `tooltip-short-delay'." |
| 74 :tag "Recent seconds" | 74 :tag "Recent seconds" |
| 75 :type 'number | |
| 76 :group 'tooltip) | |
| 77 | |
| 78 | |
| 79 (defcustom tooltip-hide-delay 5 | |
| 80 "Hide tooltips automatically after this many seconds." | |
| 81 :tag "Hide delay" | |
| 75 :type 'number | 82 :type 'number |
| 76 :group 'tooltip) | 83 :group 'tooltip) |
| 77 | 84 |
| 78 | 85 |
| 79 (defcustom tooltip-x-offset nil | 86 (defcustom tooltip-x-offset nil |
| 336 (when (stringp bg) | 343 (when (stringp bg) |
| 337 (setq params (tooltip-set-param params 'background-color bg))) | 344 (setq params (tooltip-set-param params 'background-color bg))) |
| 338 (x-show-tip (propertize text 'face 'tooltip) | 345 (x-show-tip (propertize text 'face 'tooltip) |
| 339 (selected-frame) | 346 (selected-frame) |
| 340 params | 347 params |
| 341 nil | 348 tooltip-hide-delay |
| 342 tooltip-x-offset | 349 tooltip-x-offset |
| 343 tooltip-y-offset)) | 350 tooltip-y-offset)) |
| 344 (error | 351 (error |
| 345 (message "Error while displaying tooltip: %s" error) | 352 (message "Error while displaying tooltip: %s" error) |
| 346 (sit-for 1) | 353 (sit-for 1) |