From f3b05e994e627e48fea81ff48551571803d35568 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Thu, 4 Jan 2001 14:10:01 +0000 Subject: [PATCH] Fix last change. --- lisp/ChangeLog | 8 ++++++++ lisp/tooltip.el | 8 ++++---- 2 files changed, 12 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 40bb86fc5b9..0534cee8953 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,11 @@ +2001-01-04 Gerd Moellmann + + * tooltip.el (tooltip-frame-parameters): Remove colors. + (tooltip): New face + (tooltip-set-param): New function. + (tooltip-show): Set up color frame parameters from face `tooltip'. + Display the tooltip text in face `tooltip'. + 2001-01-03 Dave Love * dired-x.el: Doc fixes. Maintainer change. diff --git a/lisp/tooltip.el b/lisp/tooltip.el index 408943f0048..f9d58802d7e 100644 --- a/lisp/tooltip.el +++ b/lisp/tooltip.el @@ -331,13 +331,13 @@ change the existing association. Value is the resulting alist." (fg (face-attribute 'tooltip :foreground)) (bg (face-attribute 'tooltip :background))) (unless (eq 'unspecified fg) - (tooltip-set-param params 'foreground-color fg)) + (setq params (tooltip-set-param params 'foreground-color fg))) (unless (eq 'unspecified bg) - (tooltip-set-param params 'background-color bg) - (tooltip-set-param params 'border-color bg)) + (setq params (tooltip-set-param params 'background-color bg)) + (setq params (tooltip-set-param params 'border-color bg))) (x-show-tip (propertize text 'face 'tooltip) (selected-frame) - tooltip-frame-parameters + params nil tooltip-x-offset tooltip-y-offset)) -- 2.39.5