mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases Activity

(x-create-frame-with-faces): Assume cursor-color, mouse-color, and

Browse Source 
border-color are okay as specified unless they are the same as the new
background color.
This commit is contained in:
Karl Heuer 1995-01-30 22:39:20 +00:00
parent c52e9f0b08
commit 66cf1bd7bc
1 changed files with 15 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
lisp/faces.el
View File

@ -928,17 +928,21 @@ selected frame."
(if resource
(cons nil (member (downcase resource)
'("on" "true")))))))
(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 'border-color (cdr (assq 'background-color params)))))
(modify-frame-parameters
frame
(list (cons 'cursor-color (cdr (assq 'background-color params)))))))
(let* ((params (frame-parameters frame))
(bg (cdr (assq 'foreground-color params)))
(fg (cdr (assq 'background-color params))))
(modify-frame-parameters frame
(list (cons 'foreground-color fg)
(cons 'background-color bg)))
(if (equal bg (cdr (assq 'border-color params)))
(modify-frame-parameters frame
(list (cons 'border-color fg))))
(if (equal bg (cdr (assq 'mouse-color params)))
(modify-frame-parameters frame
(list (cons 'mouse-color fg))))
(if (equal bg (cdr (assq 'cursor-color params)))
(modify-frame-parameters frame
(list (cons 'cursor-color fg))))))
;; Copy the vectors that represent the faces.
;; Also fill them in from X resources.
(while rest