Commit 1dd6d2a2 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(x-create-frame-with-faces): Handle `reverse' as parameter.

parent f0614854
......@@ -724,6 +724,17 @@ If NOERROR is non-nil, return nil on failure."
(rest faces))
(set-frame-face-alist frame faces)
(if (cdr (or (assq 'reverse parameters)
(assq 'reverse default-frame-alist)))
(let ((params (frame-parameters frame)))
(modify-frame-parameters
frame
(list (cons 'foreground-color (cdr (assq 'background-color params)))
(cons 'background-color (cdr (assq 'foreground-color params)))
(cons 'mouse-color (cdr (assq 'background-color params)))
(cons 'cursor-color (cdr (assq 'background-color params)))
(cons 'border-color (cdr (assq 'background-color params)))))))
;; Copy the vectors that represent the faces.
;; Also fill them in from X resources.
(while rest
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment