Mercurial > emacs

changeset 25074:2eca330f89d7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(set-mouse-color): If new color is nil, really respecify the current color.
author Karl Heuer <kwzh@gnu.org>
date Mon, 26 Jul 1999 19:06:37 +0000
parents 0cac51b5af77
children 9f5d679349e9
files lisp/frame.el
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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.