.emacs-obsolete
changeset 1436 bbc10fe15aa5
parent 1435 55307015efd0
child 1445 b1f7af188fa2
--- a/.emacs-obsolete	Sun Sep 25 22:56:05 2016 +0300
+++ b/.emacs-obsolete	Mon Sep 26 00:29:33 2016 +0300
@@ -323,3 +323,21 @@
   (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))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(message "font selection")
+
+(cond
+ ((eq window-system 'x)
+  (set-frame-font "-*-terminus-*-*-*--14-*-*-*-c-*-*-*")
+  (setq-default line-spacing nil)
+  (set-fontset-font nil 'cyrillic "-*-terminus-*-*-*--14-*-*-*-c-*-*-*")
+  (set-fontset-font nil 'greek "-*-terminus-*-*-*--14-*-*-*-c-*-*-*")
+  (set-fontset-font nil nil "-misc-fixed-*-*-*--13-*-*-*-*-*-*-*")
+  (set-fontset-font nil 'phonetic "-misc-fixed-*-*-*--13-*-*-*-*-*-*-*")
+  (set-fontset-font nil 'symbol "-misc-fixed-*-*-*--13-*-*-*-*-*-*-*")
+  ;; MODIFIER LETTER is not present in terminus, this includes ˌːˈ characters.
+  (set-fontset-font nil '(#x02C0 . #x02FF) "-misc-fixed-*-*-*--13-*-*-*-*-*-*-*") )
+ ((eq window-system 'w32)
+  (set-frame-font "Courier New-10:antialias=none") ))
+