(setq initial-frame-alist
	  `((font . ,(if my-win32
			 (if have-win32-sixbyten-font
			     "-raster-sixbyten-normal-r-normal-normal-10-75-96-96-c-60-iso10646-1"
			   "-outline-Lucida Console-normal-r-normal-normal-11-82-96-96-c-*-iso8859-1")
		       ;; X's 6x10 font ...  Why not use "6x10" here?
		       "-Misc-Fixed-Medium-R-Normal--10-100-75-75-C-60-ISO8859-1"))
	    (background-color . ,(face-background 'default))
	    (foreground-color . ,(face-foreground 'default))
	    (horizontal-scroll-bars . nil)
	    (vertical-scroll-bars . nil)
	    (menu-bar-lines . 0)
	    ;;(icon-type . t)
	    (top . 50)		;; This is overridden by my-center-frame later.
	    (left . 50)		;; This is overridden by my-center-frame later.
	    (height . ,(if (or (not my-win32)
			       have-win32-sixbyten-font)
			   (my-frame-percent-to-char-height 97)
			 70))
	    (width . 100)
	    (cursor-color . "red")
	    (mouse-color . "green"))))

  ;; default-frame-alist is defined in terms of initial-frame-alist.  Don't
  ;; use copy-sequence here -- it doesn't copy the list elements, just the
  ;; list's cons cells.  Use copy-alist instead.

  (setq default-frame-alist (copy-alist initial-frame-alist))