Advertisement
Guest User

Untitled

a guest
Mar 27th, 2015
277
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lisp 0.54 KB | None | 0 0
  1. (let ((set-font (lambda (f)
  2.                         (progn (add-to-list 'default-frame-alist '(font . f))
  3.                                (set-face-attribute 'default t :font f)
  4.                                (set-face-attribute 'default nil :font f)
  5.                                (set-frame-font f nil t)))))
  6.        (case system-type
  7.          ('gnu ())
  8.          ('gnu/linux ())
  9.          ('gnu/kfreebsd ())
  10.          ('darwin ())
  11.          ('ms-dos ())
  12.          ('windows-nt (set-font "Consolas-9"))
  13.          ('cygwin (set-font "Consolas-9"))))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement