diff options
| author | Kenichi Handa | 1997-02-26 12:52:25 +0000 |
|---|---|---|
| committer | Kenichi Handa | 1997-02-26 12:52:25 +0000 |
| commit | d0c5d80937ebb3658777d5c982bf2c45e3905fbb (patch) | |
| tree | 924bde3237e31e5c1de6f8d7e04ac3fa0215cf02 | |
| parent | ef8a8c8cba75436ee7e6cb1fe0c0b42f5c605a9f (diff) | |
| download | emacs-d0c5d80937ebb3658777d5c982bf2c45e3905fbb.tar.gz emacs-d0c5d80937ebb3658777d5c982bf2c45e3905fbb.zip | |
Add INIT-BOL to coding system iso-2022-cjk.
Remove prefix "coding-system-" from coding system symbol names.
Change coding system names iso-2022-int to iso-2022-int-1,
iso-2022-int-2 to iso-2022-cjk.
| -rw-r--r-- | lisp/international/mule-conf.el | 33 |
1 files changed, 17 insertions, 16 deletions
diff --git a/lisp/international/mule-conf.el b/lisp/international/mule-conf.el index ab9fe12c0ae..aecefff3b2b 100644 --- a/lisp/international/mule-conf.el +++ b/lisp/international/mule-conf.el | |||
| @@ -220,45 +220,46 @@ | |||
| 220 | ;; Coding systems not specific to each language environment. | 220 | ;; Coding systems not specific to each language environment. |
| 221 | 221 | ||
| 222 | (make-coding-system | 222 | (make-coding-system |
| 223 | 'coding-system-internal 0 ?= | 223 | 'internal 0 ?= |
| 224 | "Internal coding system used in a buffer.") | 224 | "Internal coding system used in a buffer.") |
| 225 | 225 | ||
| 226 | (make-coding-system | 226 | (make-coding-system |
| 227 | 'coding-system-iso-2022-7 2 ?J | 227 | 'iso-2022-7 2 ?J |
| 228 | "Coding system based on ISO2022 7-bit encoding." | 228 | "Coding system based on ISO2022 7-bit encoding." |
| 229 | '((ascii t) nil nil nil | 229 | '((ascii t) nil nil nil |
| 230 | short ascii-eol ascii-cntl seven)) | 230 | short ascii-eol ascii-cntl seven)) |
| 231 | 231 | ||
| 232 | (make-coding-system | 232 | (make-coding-system |
| 233 | 'coding-system-iso-2022-int 2 ?I | 233 | 'iso-2022-int-1 2 ?I |
| 234 | "ISO-2022-INT-1" | 234 | "ISO-2022-INT-1" |
| 235 | '((ascii t) (korean-ksc5601 t) nil nil | 235 | '((ascii t) (korean-ksc5601 t) nil nil |
| 236 | short ascii-eol ascii-cntl seven locking-shift)) | 236 | short ascii-eol ascii-cntl seven locking-shift)) |
| 237 | 237 | ||
| 238 | (make-coding-system | 238 | (make-coding-system |
| 239 | 'coding-system-iso-2022-int-2 2 ?I | 239 | 'iso-2022-cjk 2 ?I |
| 240 | "ISO-2022-INT-2" | 240 | "Mixture of ISO-2022-JP, ISO-2022-KR, and ISO-2022-CN" |
| 241 | '((ascii t) | 241 | '((ascii t) |
| 242 | (nil korean-ksc5601 chinese-gb2312 chinese-cns11643-1 t) | 242 | (nil korean-ksc5601 chinese-gb2312 chinese-cns11643-1 t) |
| 243 | (nil chinese-cns11643-2) | 243 | (nil chinese-cns11643-2) |
| 244 | (nil chinese-cns11643-3 chinese-cns11643-4 chinese-cns11643-5 | 244 | (nil chinese-cns11643-3 chinese-cns11643-4 chinese-cns11643-5 |
| 245 | chinese-cns11643-6 chinese-cns11643-7) | 245 | chinese-cns11643-6 chinese-cns11643-7) |
| 246 | short ascii-eol ascii-cntl seven locking-shift single-shift)) | 246 | short ascii-eol ascii-cntl seven locking-shift single-shift nil nil nil |
| 247 | init-bol)) | ||
| 247 | 248 | ||
| 248 | (make-coding-system | 249 | (make-coding-system |
| 249 | 'coding-system-iso-2022-ss2-8 2 ?I | 250 | 'iso-2022-ss2-8 2 ?I |
| 250 | "ISO-2022 coding system using SS2 for 96-charset in 8-bit code." | 251 | "ISO-2022 coding system using SS2 for 96-charset in 8-bit code." |
| 251 | '((ascii t) nil t nil | 252 | '((ascii t) nil t nil |
| 252 | nil ascii-eol ascii-cntl nil nil single-shift)) | 253 | nil ascii-eol ascii-cntl nil nil single-shift)) |
| 253 | 254 | ||
| 254 | (make-coding-system | 255 | (make-coding-system |
| 255 | 'coding-system-iso-2022-ss2-7 2 ?I | 256 | 'iso-2022-ss2-7 2 ?I |
| 256 | "ISO-2022 coding system using SS2 for 96-charset in 7-bit code." | 257 | "ISO-2022 coding system using SS2 for 96-charset in 7-bit code." |
| 257 | '((ascii t) nil t nil | 258 | '((ascii t) nil t nil |
| 258 | short ascii-eol ascii-cntl seven nil single-shift)) | 259 | short ascii-eol ascii-cntl seven nil single-shift)) |
| 259 | 260 | ||
| 260 | (make-coding-system | 261 | (make-coding-system |
| 261 | 'coding-system-iso-2022-lock 2 ?i | 262 | 'iso-2022-lock 2 ?i |
| 262 | "ISO-2022 coding system using Locking-Shift for 96-charset." | 263 | "ISO-2022 coding system using Locking-Shift for 96-charset." |
| 263 | '((ascii t) t nil nil | 264 | '((ascii t) t nil nil |
| 264 | nil ascii-eol ascii-cntl locking-shift)) | 265 | nil ascii-eol ascii-cntl locking-shift)) |
| @@ -287,13 +288,13 @@ | |||
| 287 | ;; values are set by the command `setup-language-environment' for each | 288 | ;; values are set by the command `setup-language-environment' for each |
| 288 | ;; language environment. | 289 | ;; language environment. |
| 289 | 290 | ||
| 290 | (setq coding-category-internal 'coding-system-internal | 291 | (setq coding-category-internal 'internal |
| 291 | coding-category-sjis 'coding-system-sjis | 292 | coding-category-sjis 'sjis |
| 292 | coding-category-iso-7 'coding-system-iso-2022-7 | 293 | coding-category-iso-7 'iso-2022-7 |
| 293 | coding-category-iso-8-1 'coding-system-iso-8859-1 | 294 | coding-category-iso-8-1 'iso-8859-1 |
| 294 | coding-category-iso-8-2 'coding-system-euc-japan | 295 | coding-category-iso-8-2 'euc-japan |
| 295 | coding-category-iso-else 'coding-system-iso-2022-int | 296 | coding-category-iso-else 'iso-2022-cjk |
| 296 | coding-category-big5 'coding-system-big5 | 297 | coding-category-big5 'big5 |
| 297 | coding-category-binary 'no-conversion) | 298 | coding-category-binary 'no-conversion) |
| 298 | 299 | ||
| 299 | (set-coding-priority | 300 | (set-coding-priority |