--- a/.emacs-my	Thu May 12 21:59:38 2016 +0300
+++ b/.emacs-my	Sun May 15 23:28:47 2016 +0300
@@ -390,16 +390,19 @@
 ;; See what I am typing immediately (for keystroke in minibuffer).
 (setq echo-keystrokes 0.2)
 
-(when (eq window-system 'x)
-  (set-frame-font "-misc-fixed-medium-r-normal--14-*-*-*-c-*-iso10646-1")
-  (set-fontset-font "fontset-default" 'latin
-                    "-misc-fixed-medium-r-normal--14-*-*-*-c-*-iso10646-1")
-  (set-fontset-font "fontset-default" 'phonetic
-                    "-misc-fixed-medium-r-normal--14-*-*-*-c-*-iso10646-1")
-  (set-fontset-font "fontset-default" 'cyrillic
-                    "-misc-fixed-medium-r-normal--14-*-*-*-c-*-iso10646-1")
-  (set-fontset-font "fontset-default" 'greek
-                    "-misc-fixed-medium-r-normal--14-*-*-*-c-*-iso10646-1"))
+(defvar my-preferred-font
+  (cond
+   ((eq window-system 'x)
+    "-misc-fixed-medium-r-normal--14-*-*-*-c-*-iso10646-1")
+   ((eq window-system 'w32)
+    "Courier New-10:antialias=none")
+   (t nil)))
+(when my-preferred-font
+  (set-frame-font my-preferred-font)
+  (set-fontset-font "fontset-default" 'latin my-preferred-font)
+  (set-fontset-font "fontset-default" 'phonetic my-preferred-font)
+  (set-fontset-font "fontset-default" 'cyrillic my-preferred-font)
+  (set-fontset-font "fontset-default" 'greek my-preferred-font))
 
 (fset 'yes-or-no-p 'y-or-n-p)