Как установить пользовательский шрифт в emacs?

Просто вставить set-default-font в .emacs не будет работать в нескольких фреймах - каждый новый фрейм будет возвращаться к старому по умолчанию. Customize действительно работает с несколькими фреймами, но мне никогда не удавалось заставить его правильно работать на разных платформах (а разные платформы имеют разные настройки шрифта даже для одного и того же шрифта).

Итак! Вот что у меня есть в моем .emacs. Он работает в linux, win32 и cygwin, и работает с несколькими фреймами (и, следовательно, клиентом emacs).

(defconst win32p    (eq system-type 'windows-nt)  "Are we running on a Windows system?")
(defconst cygwinp   (eq system-type 'cygwin)  "Are we running on Cygwin?")
(defconst linuxp    (or (eq system-type 'gnu/linux)  (eq system-type 'linux))  "Are we running on Linux?")

;;font setups
(defvar vsc-little-font "" "*My lovely little font")

(when linuxp
  (setq vsc-little-font "ProggyTinyTT-8"))

(when cygwinp
  (setq vsc-little-font "ProggyTinyTT-16"))

(when win32p
  (setq vsc-little-font "-outline-ProggyTinyTT-normal-r-normal-normal-16-120-96-96-c-*-iso8859-1"))

(add-to-list 'default-frame-alist (cons 'font vsc-little-font))
(add-to-list 'initial-frame-alist (cons 'font vsc-little-font))

вы можете использовать:

(set-default-font "ProggyClean")

, который устарел и должен быть

(set-frame-font "ProggyClean")

с Emacs 23.1 на вас .emacs , либо вы можете использовать Mx: customize-face: default и установите ProggyClean как «Семейство шрифтов».