Mercurial > hg > xemacs-beta

comparison lisp/mule/korean.el @ 771:943eaba38521

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2002-03-13 08:51:24 by ben] The big ben-mule-21-5 check-in! Various files were added and deleted. See CHANGES-ben-mule. There are still some test suite failures. No crashes, though. Many of the failures have to do with problems in the test suite itself rather than in the actual code. I'll be addressing these in the next day or so -- none of the test suite failures are at all critical. Meanwhile I'll be trying to address the biggest issues -- i.e. build or run failures, which will almost certainly happen on various platforms. All comments should be sent to ben@xemacs.org -- use a Cc: if necessary when sending to mailing lists. There will be pre- and post- tags, something like pre-ben-mule-21-5-merge-in, and post-ben-mule-21-5-merge-in.
author ben
date Wed, 13 Mar 2002 08:54:06 +0000
parents 3ecd8885ac67
children 2923009caf47
comparison
equal deleted inserted replaced
770:336a418893b5 771:943eaba38521
42 ;; Setting for coding-system and quail were moved to 42 ;; Setting for coding-system and quail were moved to
43 ;; language/korean.el. 43 ;; language/korean.el.
44 44
45 (make-coding-system 45 (make-coding-system
46 'iso-2022-int-1 'iso2022 46 'iso-2022-int-1 'iso2022
47 "ISO-2022-INT-1" 47 "ISO-2022-INT-1 (Korean)"
48 '(charset-g0 ascii 48 '(charset-g0 ascii
49 charset-g1 korean-ksc5601 49 charset-g1 korean-ksc5601
50 short t 50 short t
51 seven t 51 seven t
52 lock-shift t 52 lock-shift t
54 54
55 ;; EGG specific setup 55 ;; EGG specific setup
56 (define-egg-environment 'korean 56 (define-egg-environment 'korean
57 "Korean settings for egg" 57 "Korean settings for egg"
58 (lambda () 58 (lambda ()
59 (when (not (featurep 'egg-kor)) 59 (with-boundp '(its:*standard-modes* its:*current-map* wnn-server-type
60 (load "its-hangul") 60 egg-default-startup-file)
61 (setq its:*standard-modes* 61 (with-fboundp 'its:get-mode-map
62 (cons (its:get-mode-map "hangul") its:*standard-modes*)) 62 (when (not (featurep 'egg-kor))
63 (provide 'egg-kor)) 63 (load "its-hangul")
64 (setq wnn-server-type 'kserver) 64 (setq its:*standard-modes*
65 (setq egg-default-startup-file "eggrc-wnn") 65 (cons (its:get-mode-map "hangul") its:*standard-modes*))
66 (setq-default its:*current-map* (its:get-mode-map "hangul")))) 66 (provide 'egg-kor))
67 (setq wnn-server-type 'kserver)
68 (setq egg-default-startup-file "eggrc-wnn")
69 (setq-default its:*current-map* (its:get-mode-map "hangul"))))))
67 70
68 ;; (make-coding-system 71 ;; (make-coding-system
69 ;; 'korean-iso-8bit 2 ?K 72 ;; 'korean-iso-8bit 2 ?K
70 ;; "ISO 2022 based EUC encoding for Korean KSC5601 (MIME:EUC-KR)" 73 ;; "ISO 2022 based EUC encoding for Korean KSC5601 (MIME:EUC-KR)"
71 ;; '(ascii korean-ksc5601 nil nil 74 ;; '(ascii korean-ksc5601 nil nil
73 ;; '((safe-charsets ascii korean-ksc5601) 76 ;; '((safe-charsets ascii korean-ksc5601)
74 ;; (mime-charset . euc-kr))) 77 ;; (mime-charset . euc-kr)))
75 78
76 (make-coding-system 79 (make-coding-system
77 'euc-kr 'iso2022 80 'euc-kr 'iso2022
78 "Coding-system of Korean EUC (Extended Unix Code)." 81 "Korean EUC"
79 '(charset-g0 ascii 82 '(charset-g0 ascii
80 charset-g1 korean-ksc5601 83 charset-g1 korean-ksc5601
81 mnemonic "ko/EUC" 84 mnemonic "ko/EUC"
85 documentation
86 "Korean EUC (Extended Unix Code), the standard Korean encoding on Unix.
87 This follows the same overall EUC principles (see the description under
88 Japanese EUC), but specifies different character sets:
89
90 G0: ASCII
91 G1: Korean-KSC5601"
82 eol-type nil)) 92 eol-type nil))
83 93
84 ;;(define-coding-system-alias 'euc-kr 'euc-korea) 94 ;;(define-coding-system-alias 'euc-kr 'euc-korea)
85 95
86 (define-coding-system-alias 'korean-euc 'euc-kr) 96 (define-coding-system-alias 'korean-euc 'euc-kr)
94 ;; '((safe-charsets ascii korean-ksc5601) 104 ;; '((safe-charsets ascii korean-ksc5601)
95 ;; (mime-charset . iso-2022-kr))) 105 ;; (mime-charset . iso-2022-kr)))
96 106
97 (make-coding-system 107 (make-coding-system
98 'iso-2022-kr 'iso2022 108 'iso-2022-kr 'iso2022
99 "Coding-System used for communication with mail in Korea." 109 "ISO-2022-KR (Korean mail)"
100 '(charset-g0 ascii 110 '(charset-g0 ascii
101 charset-g1 korean-ksc5601 111 charset-g1 korean-ksc5601
102 force-g1-on-output t 112 force-g1-on-output t
103 seven t 113 seven t
104 lock-shift t 114 lock-shift t
105 mnemonic "Ko/7bit" 115 mnemonic "Ko/7bit"
116 documentation "Coding-System used for communication with mail in Korea."
106 eol-type lf)) 117 eol-type lf))
107 118
108 ;; (define-coding-system-alias 'korean-iso-7bit-lock 'iso-2022-kr) 119 ;; (define-coding-system-alias 'korean-iso-7bit-lock 'iso-2022-kr)
109 120
110 (set-language-info-alist 121 (set-language-info-alist
112 (exit-function . exit-korean-environment) 123 (exit-function . exit-korean-environment)
113 (tutorial . "TUTORIAL.ko") 124 (tutorial . "TUTORIAL.ko")
114 (charset korean-ksc5601) 125 (charset korean-ksc5601)
115 (coding-system euc-kr iso-2022-kr) 126 (coding-system euc-kr iso-2022-kr)
116 (coding-priority euc-kr iso-2022-kr) 127 (coding-priority euc-kr iso-2022-kr)
128 (locale "ko_KR.eucKR" "ko_KR.EUC" "ko_KR.euc" "ko_KR" "ko")
129 (native-coding-system euc-kr)
117 (input-method . "korean-hangul") 130 (input-method . "korean-hangul")
118 (features korea-util) 131 (features korea-util)
119 (sample-text . "Hangul ($(CGQ1[(B) $(C>H3gGO<<?d(B, $(C>H3gGO=J4O1n(B") 132 (sample-text . "Hangul ($(CGQ1[(B) $(C>H3gGO<<?d(B, $(C>H3gGO=J4O1n(B")
120 (documentation . "\ 133 (documentation . "\
121 The following key bindings are available while using Korean input methods: 134 The following key bindings are available while using Korean input methods: