 ;;(setq default-process-coding-system 'euc-cn)
 ;;(setq-default pathname-coding-system 'euc-cn)
 
-(set-default-font "Monaco 10")
+(when *is-a-mac*
+  (set-default-font "Monaco 10"))
 (set-fontset-font "fontset-default" 'unicode"STHeiti 12")
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;----------------------------------------------------------------------------
;; Ըβ
;;----------------------------------------------------------------------------
(require 'highlight-tail)
(message "Highlight-tail loaded - now your Emacs will be even more sexy!")
(setq highlight-tail-colors '(("black" . 0)

;;----------------------------------------------------------------------------
;; 
;;----------------------------------------------------------------------------
(require-package 'cal-china-x)
(require 'cal-china-x)
(setq mark-holidays-in-calendar t)
(setq cal-china-x-important-holidays cal-china-x-chinese-holidays)
