Mercurial > emacs
comparison lisp/tooltip.el @ 35044:bb5e7a8b6f4c
Fix last change.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Thu, 04 Jan 2001 14:09:24 +0000 |
parents | f7ca93e40e16 |
children | d19eadb47c76 |
comparison
equal
deleted
inserted
replaced
35043:f7ca93e40e16 | 35044:bb5e7a8b6f4c |
---|---|
329 (condition-case error | 329 (condition-case error |
330 (let ((params (copy-sequence tooltip-frame-parameters)) | 330 (let ((params (copy-sequence tooltip-frame-parameters)) |
331 (fg (face-attribute 'tooltip :foreground)) | 331 (fg (face-attribute 'tooltip :foreground)) |
332 (bg (face-attribute 'tooltip :background))) | 332 (bg (face-attribute 'tooltip :background))) |
333 (unless (eq 'unspecified fg) | 333 (unless (eq 'unspecified fg) |
334 (tooltip-set-param params 'foreground-color fg)) | 334 (setq params (tooltip-set-param params 'foreground-color fg))) |
335 (unless (eq 'unspecified bg) | 335 (unless (eq 'unspecified bg) |
336 (tooltip-set-param params 'background-color bg) | 336 (setq params (tooltip-set-param params 'background-color bg)) |
337 (tooltip-set-param params 'border-color bg)) | 337 (setq params (tooltip-set-param params 'border-color bg))) |
338 (x-show-tip (propertize text 'face 'tooltip) | 338 (x-show-tip (propertize text 'face 'tooltip) |
339 (selected-frame) | 339 (selected-frame) |
340 tooltip-frame-parameters | 340 params |
341 nil | 341 nil |
342 tooltip-x-offset | 342 tooltip-x-offset |
343 tooltip-y-offset)) | 343 tooltip-y-offset)) |
344 (error | 344 (error |
345 (message "Error while displaying tooltip: %s" error) | 345 (message "Error while displaying tooltip: %s" error) |