procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
really respecify the current color.
This commit is contained in:
Karl Heuer 1999-07-26 19:06:37 +00:00
parent de4075cff3
commit ec6d44639a
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/frame.el
View file

@ -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.