From: Karl Heuer <kwzh@gnu.org>
Date: Mon, 26 Jul 1999 19:06:37 +0000 (+0000)
Subject: (set-mouse-color): If new color is nil,
X-Git-Tag: emacs-pretest-21.0.90~7367
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ec6d44639a9e97c6baa1c28eca60d5a237fe3628;p=emacs.git

(set-mouse-color): If new color is nil,
really respecify the current color.
---

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.