# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 739086643 0
# Node ID 49b72d5833545ca01e5340f46a5a7eda7966ce9b
# Parent  2a646c40a4cfbeaa3699a8516d1a4c0baaad21a7
(frame-initialize): Set cursor-color last.

diff -r 2a646c40a4cf -r 49b72d583354 lisp/frame.el
--- a/lisp/frame.el	Thu Jun 03 05:29:12 1993 +0000
+++ b/lisp/frame.el	Thu Jun 03 05:50:43 1993 +0000
@@ -116,10 +116,12 @@
 		  (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