1
0
mirror of https://git.FreeBSD.org/ports.git synced 2024-11-14 23:46:10 +00:00
freebsd-ports/textproc/coco/files/site-start.el.tmpl
Masafumi Max NAKANE 2263897ac8 Bugfix:
(1) /usr/local/lib/mule/site-lisp/site-start.el is fixed

(2) /usr/X11R6/info is added to Info-default-directory-list in site-start.el

(3) mule can work on FreeBSD-current (this problem is about new ld.so).

PR:		6030
Submitted by:	maintainer
1998-05-02 21:07:10 +00:00

43 lines
1.0 KiB
Cheetah

;; BEGIN mule-family
;;
;; 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))
)
;; Add System Info path '/usr/share/info' into Info-default-directory-list
(setq Info-default-directory-list
(append (list
"/usr/share/info"
"/usr/X11R6/info"
) Info-default-directory-list))
;; END mule-family