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

really respecify the current color.

1 files changed, 4 insertions, 1 deletions

diff --git a/lisp/frame.el b/lisp/frame.el
index e329a87af37..915f6ff2d40 100644
--- 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.