416 (defvar my-preferred-font

   416 (cond

   417   (cond

   417  ((eq window-system 'x)

   418    ((eq window-system 'x)

   418   (set-frame-font "-*-terminus-*-*-*--14-*-*-*-c-*-*-*")

   419     "-misc-fixed-medium-r-normal--14-*-*-*-c-*-iso10646-1")

   419   (setq-default line-spacing nil)

   420    ((eq window-system 'w32)

   420   (set-fontset-font nil 'cyrillic "-*-terminus-*-*-*--14-*-*-*-c-*-*-*")

   421     "Courier New-10:antialias=none")

   421   (set-fontset-font nil 'greek "-*-terminus-*-*-*--14-*-*-*-c-*-*-*")

   422    (t nil)))

   422   (set-fontset-font nil nil "-misc-fixed-*-*-*--13-*-*-*-*-*-*-*")

   423 (when my-preferred-font

   423   (set-fontset-font nil 'phonetic "-misc-fixed-*-*-*--13-*-*-*-*-*-*-*")

   424   (set-frame-font my-preferred-font)

   424   (set-fontset-font nil 'symbol "-misc-fixed-*-*-*--13-*-*-*-*-*-*-*")

   425   (set-fontset-font "fontset-default" 'latin my-preferred-font)

   425   ;; MODIFIER LETTER is not present in terminus, this includes ˌːˈ characters.

   426   (set-fontset-font "fontset-default" 'phonetic my-preferred-font)

   426   (set-fontset-font nil '(#x02C0 . #x02FF) "-misc-fixed-*-*-*--13-*-*-*-*-*-*-*") )

   427   (set-fontset-font "fontset-default" 'cyrillic my-preferred-font)

   427  ((eq window-system 'w32)

   428   (set-fontset-font "fontset-default" 'greek my-preferred-font))

   428   (set-frame-font "Courier New-10:antialias=none") ))