Mercurial > emacs

changeset 3445:49b72d583354

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(frame-initialize): Set cursor-color last.
author Richard M. Stallman <rms@gnu.org>
date Thu, 03 Jun 1993 05:50:43 +0000
parents 2a646c40a4cf
children 74c145e499ab
files lisp/frame.el
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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