mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-22 18:35:09 +00:00
Code Issues Releases Activity

(frame-initialize): Set cursor-color last.

Browse Source
This commit is contained in:
Richard M. Stallman 1993-06-03 05:50:43 +00:00
parent 82ee0df472
commit 949d4ac78e
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/frame.el
View File

@ -116,10 +116,12 @@ These supercede the values given in `default-frame-alist'.")
(let ((params (frame-parameters frame-initial-frame)))
(modify-frame-parameters
frame-initial-frame
(list (cons 'foreground-color (cdr (assq 'background-color params)))
;; Must set cursor-color after background color.
;; So put it first.
(list (cons 'cursor-color (cdr (assq 'background-color params)))
(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)))))))))
;; At this point, we know that we have a frame open, so we