1998-05-02 21:07:10 +00:00
|
|
|
;; BEGIN mule-family
|
|
|
|
|
;;
|
1997-09-10 08:51:26 +00:00
|
|
|
;; Chinese
|
|
|
|
|
;;(load "its/erpin")
|
|
|
|
|
;;(load "its/zhuyin")
|
|
|
|
|
;;(load "its/quanjiao")
|
|
|
|
|
;;(set-primary-environment 'chinese);;CHINESE
|
|
|
|
|
|
|
|
|
|
;; Korean
|
|
|
|
|
;;(if (boundp 'WNN);;KOREAN
|
|
|
|
|
;; (load "its/Korean"));;KOREAN
|
|
|
|
|
;;(set-primary-environment 'korean);;KOREAN
|
|
|
|
|
|
|
|
|
|
;; Japanese
|
|
|
|
|
;;(set-primary-environment 'japanese);;JAPANESE
|
|
|
|
|
|
|
|
|
|
;; For languages except Korean (kr-mule-wnn)
|
|
|
|
|
(defun set-korean-environment ()
|
|
|
|
|
(setq *coding-category-iso-8-2* '*euc-korea*)
|
|
|
|
|
|
|
|
|
|
(set-coding-priority
|
|
|
|
|
'(*coding-category-iso-8-2*
|
|
|
|
|
*coding-category-iso-8-1*))
|
|
|
|
|
|
|
|
|
|
(set-default-file-coding-system '*iso-2022-kr*)
|
|
|
|
|
|
|
|
|
|
(if (boundp 'WNN)
|
|
|
|
|
(progn
|
|
|
|
|
;; (load "its/Korean");;not KOREAN
|
|
|
|
|
(set-default-wnn-environment 'kserver)))
|
|
|
|
|
|
|
|
|
|
(setq-default quail-current-package (assoc "hangul" quail-package-alist))
|
|
|
|
|
)
|
|
|
|
|
|
|
|
|
|
(setq Info-default-directory-list
|
|
|
|
|
(append (list
|
1998-10-07 08:11:41 +00:00
|
|
|
"%%LOCALBASE%%/share/mule/19.34/info"
|
1999-09-28 23:39:58 +00:00
|
|
|
"%%LOCALBASE%%/share/mule/info"
|
1998-10-07 08:11:41 +00:00
|
|
|
"%%X11BASE%%/info"
|
1997-09-10 08:51:26 +00:00
|
|
|
"/usr/share/info"
|
|
|
|
|
) Info-default-directory-list))
|
1998-05-02 21:07:10 +00:00
|
|
|
|
|
|
|
|
;; END mule-family
|
