Fix last change.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 40bb86f..0534cee 100644 (file)
--- 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 408943f..f9d5880 100644 (file)
--- 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))