Mercurial > hg > xemacs-beta

comparison lisp/mule/korean-hooks.el @ 138:6608ceec7cf8 r20-2b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b3
author cvs
date Mon, 13 Aug 2007 09:31:46 +0200
parents cca96a509cfe
children 3bb7ccffb0c0
comparison
equal deleted inserted replaced
137:cae984061f40 138:6608ceec7cf8
32 (loop for row from 33 to 34 do (modify-syntax-entry `[korean-ksc5601 ,row] ".")) 32 (loop for row from 33 to 34 do (modify-syntax-entry `[korean-ksc5601 ,row] "."))
33 (loop for row from 35 to 37 do (modify-syntax-entry `[korean-ksc5601 ,row] "w")) 33 (loop for row from 35 to 37 do (modify-syntax-entry `[korean-ksc5601 ,row] "w"))
34 (loop for row from 38 to 41 do (modify-syntax-entry `[korean-ksc5601 ,row] ".")) 34 (loop for row from 38 to 41 do (modify-syntax-entry `[korean-ksc5601 ,row] "."))
35 (loop for row from 42 to 126 do (modify-syntax-entry `[korean-ksc5601 ,row] "w")) 35 (loop for row from 42 to 126 do (modify-syntax-entry `[korean-ksc5601 ,row] "w"))
36 36
37 ;; EGG specific setup 37 (add-hook 'quail-package-alist '("hangul" "quail-hangul"))
38 ;(if (featurep 'egg) 38 (add-hook 'quail-package-alist '("hangul3" "quail-hangul3"))
39 ; (progn 39 (add-hook 'quail-package-alist '("hanja-jis" "quail-hanja-jis"))
40 ; (load "its-hangul") 40 (add-hook 'quail-package-alist '("hanja-ksc" "quail-hanja-ksc"))
41 ; (setq its:*standard-modes*
42 ; (cons (its:get-mode-map "hangul") its:*standard-modes*))
43 ; (setq-default its:*current-map* (its:get-mode-map "hangul"))))
44
45 ;(add-hook 'quail-package-alist '("hangul" "quail/hangul"))
46 ;(add-hook 'quail-package-alist '("hangul3" "quail/hangul3"))
47 ;(add-hook 'quail-package-alist '("hanja-jis" "quail/hanja-jis"))
48 ;(add-hook 'quail-package-alist '("hanja-ksc" "quail/hanja-ksc"))
49 41
50 (make-coding-system 42 (make-coding-system
51 'euc-korea 'iso2022 43 'euc-korea 'iso2022
52 "Coding-system of Korean EUC (Extended Unix Code)." 44 "Coding-system of Korean EUC (Extended Unix Code)."
53 '(charset-g0 ascii 45 '(charset-g0 ascii
81 seven t 73 seven t
82 lock-shift t 74 lock-shift t
83 mnemonic "ISO7/Ko" 75 mnemonic "ISO7/Ko"
84 )) 76 ))
85 77
78 ;; EGG specific setup
79 (define-egg-environment 'korean
80 "Korean settings for egg"
81 (lambda ()
82 (when (not (featurep 'egg-kor))
83 (load "its-hangul")
84 (setq its:*standard-modes*
85 (cons (its:get-mode-map "hangul") its:*standard-modes*))
86 (provide 'egg-kor))
87 (setq wnn-server-type 'kserver)
88 (setq egg-default-startup-file "eggrc-wnn")
89 (setq-default its:*current-map* (its:get-mode-map "hangul"))))
90
86 (define-language-environment 'korean 91 (define-language-environment 'korean
87 "Korean" 92 "Korean"
88 (lambda () 93 (lambda ()
89 (set-coding-category-system 'iso-8-2 'euc-korea) 94 (set-coding-category-system 'iso-8-2 'euc-korea)
90 (set-coding-priority-list '(iso-8-2 iso-7 iso-8-designate)) 95 (set-coding-priority-list '(iso-8-2 iso-7 iso-8-designate))
108 (load "its/its-hangul") 113 (load "its/its-hangul")
109 (setq its:*standard-modes* 114 (setq its:*standard-modes*
110 (cons (its:get-mode-map "hangul") its:*standard-modes*))) 115 (cons (its:get-mode-map "hangul") its:*standard-modes*)))
111 (setq-default its:*current-map* (its:get-mode-map "hangul"))) 116 (setq-default its:*current-map* (its:get-mode-map "hangul")))
112 117
113 ; (setq-default quail-current-package 118 (setq-default quail-current-package
114 ; (assoc "hangul" quail-package-alist)))) 119 (assoc "hangul" quail-package-alist))
115 )) 120 ))