1 |
;;; mule-conf.el --- configure multilingual environment |
;;; mule-conf.el --- configure multilingual environment -*- no-byte-compile: t -*- |
2 |
|
|
3 |
;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN. |
;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN. |
4 |
;; Licensed to the Free Software Foundation. |
;; Licensed to the Free Software Foundation. |
226 |
|
|
227 |
;; 2-byte 2-column charsets. Valid range of CHARSET-ID is 245..254. |
;; 2-byte 2-column charsets. Valid range of CHARSET-ID is 245..254. |
228 |
|
|
229 |
;; Ethiopic characters (Amahric and Tigrigna). |
;; Ethiopic characters (Amharic and Tigrigna). |
230 |
(define-charset 245 'ethiopic |
(define-charset 245 'ethiopic |
231 |
[2 94 2 0 ?3 0 "Ethiopic" "Ethiopic characters" |
[2 94 2 0 ?3 0 "Ethiopic" "Ethiopic characters" |
232 |
"Ethiopic characters."]) |
"Ethiopic characters."]) |
306 |
unibyte buffer as is, thus each byte of a file is treated as a |
unibyte buffer as is, thus each byte of a file is treated as a |
307 |
character." |
character." |
308 |
(list 'coding-category 'coding-category-binary |
(list 'coding-category 'coding-category-binary |
309 |
'alias-coding-systems '(no-conversion)) |
'alias-coding-systems '(no-conversion) |
310 |
|
'safe-charsets t 'safe-chars t) |
311 |
nil)) |
nil)) |
312 |
(put 'no-conversion 'eol-type 0) |
(put 'no-conversion 'eol-type 0) |
313 |
(put 'coding-category-binary 'coding-systems '(no-conversion)) |
(put 'coding-category-binary 'coding-systems '(no-conversion)) |
314 |
(setq coding-system-list '(no-conversion)) |
(setq coding-system-list '(no-conversion)) |
315 |
(setq coding-system-alist '(("no-conversion"))) |
(setq coding-system-alist '(("no-conversion"))) |
316 |
(register-char-codings 'no-conversion t) |
(define-coding-system-internal 'no-conversion) |
317 |
|
|
318 |
(define-coding-system-alias 'binary 'no-conversion) |
(define-coding-system-alias 'binary 'no-conversion) |
319 |
|
|
342 |
eight-bit-control characters. Each of them is encoded into a single |
eight-bit-control characters. Each of them is encoded into a single |
343 |
byte." |
byte." |
344 |
nil |
nil |
345 |
'((safe-charsets . t))) |
'((safe-charsets . t) |
346 |
|
(composition . t))) |
347 |
|
|
348 |
(make-coding-system |
(make-coding-system |
349 |
'raw-text 5 ?t |
'raw-text 5 ?t |
415 |
'compound-text 2 ?x |
'compound-text 2 ?x |
416 |
"Compound text based generic encoding for decoding unknown messages. |
"Compound text based generic encoding for decoding unknown messages. |
417 |
|
|
418 |
This coding system does not support ICCCM Extended Segments." |
This coding system does not support extended segments." |
419 |
'((ascii t) (latin-iso8859-1 katakana-jisx0201 t) t t |
'((ascii t) (latin-iso8859-1 katakana-jisx0201 t) t t |
420 |
nil ascii-eol ascii-cntl nil locking-shift single-shift nil nil nil |
nil ascii-eol ascii-cntl nil locking-shift single-shift nil nil nil |
421 |
init-bol nil nil) |
init-bol nil nil) |
443 |
|
|
444 |
(make-coding-system |
(make-coding-system |
445 |
'compound-text-with-extensions 5 ?x |
'compound-text-with-extensions 5 ?x |
446 |
"Compound text encoding with ICCCM Extended Segment extensions. |
"Compound text encoding with extended segments. |
447 |
|
|
448 |
This coding system should be used only for X selections. It is inappropriate |
This coding system should be used only for X selections. It is inappropriate |
449 |
for decoding and encoding files, process I/O, etc." |
for decoding and encoding files, process I/O, etc." |
458 |
|
|
459 |
(make-coding-system |
(make-coding-system |
460 |
'iso-safe 2 ?- |
'iso-safe 2 ?- |
461 |
"Convert all characters but ASCII to `?'." |
"Encode ASCII asis and encode non-ASCII characters to `?'." |
462 |
'(ascii nil nil nil |
'(ascii nil nil nil |
463 |
nil ascii-eol ascii-cntl nil nil nil nil nil nil nil nil t) |
nil ascii-eol ascii-cntl nil nil nil nil nil nil nil nil t) |
464 |
'((safe-charsets ascii))) |
'((safe-charsets ascii))) |
465 |
|
|
466 |
|
(define-coding-system-alias |
467 |
|
'us-ascii 'iso-safe) |
468 |
|
|
469 |
|
(make-coding-system |
470 |
|
'iso-latin-1 2 ?1 |
471 |
|
"ISO 2022 based 8-bit encoding for Latin-1 (MIME:ISO-8859-1)." |
472 |
|
'(ascii latin-iso8859-1 nil nil |
473 |
|
nil nil nil nil nil nil nil nil nil nil nil t t) |
474 |
|
'((safe-charsets ascii latin-iso8859-1) |
475 |
|
(mime-charset . iso-8859-1))) |
476 |
|
|
477 |
|
(define-coding-system-alias 'iso-8859-1 'iso-latin-1) |
478 |
|
(define-coding-system-alias 'latin-1 'iso-latin-1) |
479 |
|
|
480 |
;; Use iso-safe for terminal output if some other coding system is not |
;; Use iso-safe for terminal output if some other coding system is not |
481 |
;; specified explicitly. |
;; specified explicitly. |
482 |
(set-safe-terminal-coding-system-internal 'iso-safe) |
(set-safe-terminal-coding-system-internal 'iso-safe) |
535 |
coding-category-iso-8-else |
coding-category-iso-8-else |
536 |
coding-category-emacs-mule |
coding-category-emacs-mule |
537 |
coding-category-raw-text |
coding-category-raw-text |
538 |
coding-category-sjis |
coding-category-sjis |
539 |
coding-category-big5 |
coding-category-big5 |
540 |
coding-category-ccl |
coding-category-ccl |
541 |
coding-category-binary |
coding-category-binary |