# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 933015997 0
# Node ID 2eca330f89d792f0d6c2f51e855419b850b9a75f
# Parent  0cac51b5af77cc9e51a81b894bf1314272ab04d4
(set-mouse-color): If new color is nil,
really respecify the current color.

diff -r 0cac51b5af77 -r 2eca330f89d7 lisp/frame.el
--- a/lisp/frame.el	Mon Jul 26 19:05:40 1999 +0000
+++ b/lisp/frame.el	Mon Jul 26 19:06:37 1999 +0000
@@ -700,7 +700,10 @@
 To get the frame's current mouse color, use `frame-parameters'."
   (interactive "sColor: ")
   (modify-frame-parameters (selected-frame)
-			   (list (cons 'mouse-color color-name))))
+			   (list (cons 'mouse-color
+				       (or color-name
+					   (cdr (assq 'mouse-color
+						      (frame-parameters))))))))
 
 (defun set-border-color (color-name)
   "Set the color of the border of the selected frame to COLOR.