Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (let ((set-font (lambda (f)
- (progn (add-to-list 'default-frame-alist '(font . f))
- (set-face-attribute 'default t :font f)
- (set-face-attribute 'default nil :font f)
- (set-frame-font f nil t)))))
- (case system-type
- ('gnu ())
- ('gnu/linux ())
- ('gnu/kfreebsd ())
- ('darwin ())
- ('ms-dos ())
- ('windows-nt (set-font "Consolas-9"))
- ('cygwin (set-font "Consolas-9"))))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement