(set-mouse-color): If new color is nil,

really respecify the current color.

diff --git a/lisp/frame.el b/lisp/frame.el
index e329a87af371833537c15b1bd398965f11b7b245..915f6ff2d404e1672f7ce1705ee68c8032494193 100644 (file)
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -700,7 +700,10 @@ When called interactively, prompt for the name of the color to use.
 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.