diff options
author | Richard M. Stallman <[email protected]> | 1993-05-25 02:28:03 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 1993-05-25 02:28:03 +0000 |
commit | 1dd6d2a2dd22fa69f0d3be1112c908889fd83aa9 (patch) | |
tree | e4ef351db40bfec4456d47770360e929db5fa301 | |
parent | f0614854a5d18eab37fc76b2f38b8f916a191e92 (diff) |
(x-create-frame-with-faces): Handle `reverse' as parameter.
-rw-r--r-- | lisp/faces.el | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/lisp/faces.el b/lisp/faces.el index 1f4f6ba723..34b88ff595 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -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 |