From ec6d44639a9e97c6baa1c28eca60d5a237fe3628 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Mon, 26 Jul 1999 19:06:37 +0000 Subject: [PATCH] (set-mouse-color): If new color is nil, really respecify the current color. --- lisp/frame.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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. -- 2.39.5