--- a/.emacs-obsolete	Tue Sep 20 14:44:39 2016 +0300
+++ b/.emacs-obsolete	Sun Sep 25 22:56:05 2016 +0300
@@ -306,3 +306,20 @@
 
 (setq smtpmail-smtp-server "192.168.0.xxx")
 (setq smtpmail-smtp-service "25")
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(message "font selection")
+
+(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))