From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 17 Jun 1994 13:39:14 +0000 (+0000)
Subject: (x-create-frame-with-faces): Set the cursor color last.
X-Git-Tag: emacs-19.34~7917
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2dd60dfd18b3149493c04315964c1a8e14260810;p=emacs.git

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

diff --git a/lisp/faces.el b/lisp/faces.el
index 36336f9b360..cfed0a65d26 100644
--- 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.