diff -r e9eaa3ed24e9 -r 55307015efd0 .emacs-my --- 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)