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

(x-create-frame-with-faces): Set the cursor color last.

Browse Source
This commit is contained in:
Richard M. Stallman 1994-06-17 13:39:14 +00:00
parent 11dd3d61d5
commit 2dd60dfd18
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/faces.el
View File

@ -811,8 +811,10 @@ selected 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)))))))
(cons 'border-color (cdr (assq 'background-color params)))))
(modify-frame-parameters
frame
(list (cons 'cursor-color (cdr (assq 'background-color params)))))))
;; Copy the vectors that represent the faces.
;; Also fill them in from X resources.