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

diff --git a/lisp/faces.el b/lisp/faces.el
index 36336f9b3602faf438156977fd80f0d30172d476..cfed0a65d265d2eb94351a64e373aa3e40e3f272 100644 (file)
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -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.