Fix last change.

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  <gerd@gnu.org>
+
+        * 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  <fx@gnu.org>
 
         * 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))