Use Terminus font under X and fallback to misc-fixed.
authorOleksandr Gavenko <gavenkoa@gmail.com>
Sun, 25 Sep 2016 22:56:05 +0300
changeset 1435 55307015efd0
parent 1434 e9eaa3ed24e9
child 1436 bbc10fe15aa5
Use Terminus font under X and fallback to misc-fixed.
.emacs-my
.emacs-obsolete
--- a/.emacs-my	Tue Sep 20 14:44:39 2016 +0300
+++ b/.emacs-my	Sun Sep 25 22:56:05 2016 +0300
@@ -413,19 +413,19 @@
 ;; See what I am typing immediately (for keystroke in minibuffer).
 (setq echo-keystrokes 0.2)
 
-(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))
+(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") ))
 
 (fset 'yes-or-no-p 'y-or-n-p)
 
--- 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))