Mercurial > emacs

comparison lisp/tooltip.el @ 35044:bb5e7a8b6f4c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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)