# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 978617364 0
# Node ID bb5e7a8b6f4cbe7b4e4c43ba1e3a3d34fb135089
# Parent  f7ca93e40e16c73d728bde98f4dc3853bf17fa6e
Fix last change.

diff -r f7ca93e40e16 -r bb5e7a8b6f4c lisp/tooltip.el
--- a/lisp/tooltip.el	Thu Jan 04 14:07:37 2001 +0000
+++ b/lisp/tooltip.el	Thu Jan 04 14:09:24 2001 +0000
@@ -331,13 +331,13 @@
 	      (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))