Mercurial > emacs
comparison lisp/international/mule.el @ 88123:375f2633d815
New directory
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Mon, 08 Sep 2003 11:56:09 +0000 |
parents | 695cf19ef79e |
children | 2f877ed80fa6 |
comparison
equal
deleted
inserted
replaced
52428:27bc8b966642 | 88123:375f2633d815 |
---|---|
368 (setq trans (aref table char)) | 368 (setq trans (aref table char)) |
369 (if trans | 369 (if trans |
370 (setq split (split-char trans) | 370 (setq split (split-char trans) |
371 charset (car split))) | 371 charset (car split))) |
372 (cond ((eq charset 'ascii) | 372 (cond ((eq charset 'ascii) |
373 (or trans char)) | 373 char) |
374 ((eq charset 'latin-iso8859-1) | 374 ((eq charset 'latin-iso8859-1) |
375 (+ (nth 1 split) 128)) | 375 (+ (nth 1 split) 128)) |
376 ((eq charset 'mule-unicode-0100-24ff) | 376 ((eq charset 'mule-unicode-0100-24ff) |
377 (+ #x0100 (+ (* (- (nth 1 split) 32) 96) | 377 (+ #x0100 (+ (* (- (nth 1 split) 32) 96) |
378 (- (nth 2 split) 32)))) | 378 (- (nth 2 split) 32)))) |
812 | 812 |
813 o mime-charset | 813 o mime-charset |
814 | 814 |
815 The value is a symbol whose name is the `MIME-charset' parameter of | 815 The value is a symbol whose name is the `MIME-charset' parameter of |
816 the coding system. | 816 the coding system. |
817 | |
818 o mime-text-unsuitable | |
819 | |
820 A non-nil value means the `mime-charset' property names a charset | |
821 which is unsuitable for the top-level media type \"text\". | |
822 | 817 |
823 o valid-codes (meaningful only for a coding system based on CCL) | 818 o valid-codes (meaningful only for a coding system based on CCL) |
824 | 819 |
825 The value is a list to indicate valid byte ranges of the encoded | 820 The value is a list to indicate valid byte ranges of the encoded |
826 file. Each element of the list is an integer or a cons of integer. | 821 file. Each element of the list is an integer or a cons of integer. |
1127 | 1122 |
1128 If CODING-SYSTEM leaves the text conversion unspecified, or if it | 1123 If CODING-SYSTEM leaves the text conversion unspecified, or if it |
1129 leaves the end-of-line conversion unspecified, FORCE controls what to | 1124 leaves the end-of-line conversion unspecified, FORCE controls what to |
1130 do. If FORCE is nil, get the unspecified aspect (or aspects) from the | 1125 do. If FORCE is nil, get the unspecified aspect (or aspects) from the |
1131 buffer's previous `buffer-file-coding-system' value (if it is | 1126 buffer's previous `buffer-file-coding-system' value (if it is |
1132 specified there). Otherwise, leave it unspecified. | 1127 specified there). Otherwise, levae it unspecified. |
1133 | 1128 |
1134 This marks the buffer modified so that the succeeding \\[save-buffer] | 1129 This marks the buffer modified so that the succeeding \\[save-buffer] |
1135 surely saves the buffer with CODING-SYSTEM. From a program, if you | 1130 surely saves the buffer with CODING-SYSTEM. From a program, if you |
1136 don't want to mark the buffer modified, just set the variable | 1131 don't want to mark the buffer modified, just set the variable |
1137 `buffer-file-coding-system' directly." | 1132 `buffer-file-coding-system' directly." |
1382 ;; ESC % G --UTF-8-BYTES-- ESC % @ | 1377 ;; ESC % G --UTF-8-BYTES-- ESC % @ |
1383 (setq bytes (- (point) pos)) | 1378 (setq bytes (- (point) pos)) |
1384 (decode-coding-region (- (point) bytes) (point) 'utf-8)))) | 1379 (decode-coding-region (- (point) bytes) (point) 'utf-8)))) |
1385 (goto-char (point-min)) | 1380 (goto-char (point-min)) |
1386 (- (point-max) (point))))) | 1381 (- (point-max) (point))))) |
1387 | |
1388 ;; From X registry 2001/06/01 | |
1389 ;; 20. NON-STANDARD CHARACTER SET ENCODINGS | |
1390 | |
1391 ;; See Section 6 of the Compound Text standard. | |
1392 | |
1393 ;; Name Reference | |
1394 ;; ---- --------- | |
1395 ;; "DEC.CNS11643.1986-2" [53] | |
1396 ;; CNS11643 2-plane using the recommended | |
1397 ;; internal representation scheme | |
1398 ;; "DEC.DTSCS.1990-2" [54] | |
1399 ;; DEC Taiwan Supplemental Character Set | |
1400 ;; "fujitsu.u90x03" [87] | |
1401 ;; "ILA" [62] | |
1402 ;; registry prefix | |
1403 ;; "IPSYS" [59] | |
1404 ;; registry prefix | |
1405 ;; "omron_UDC" [45] | |
1406 ;; omron User Defined Charset | |
1407 ;; "omron_UDC_ja" [45] | |
1408 ;; omron User Defined Charset for Japanese | |
1409 ;; "omron_UDC_zh" [45] | |
1410 ;; omron User Defined Charset for Chinese(Main land) | |
1411 ;; "omron_UDC_tw" [45] | |
1412 ;; omron User Defined Charset for Chinese(Taiwan) | |
1413 | 1382 |
1414 ;; If you add charsets here, be sure to modify the regexp used by | 1383 ;; If you add charsets here, be sure to modify the regexp used by |
1415 ;; ctext-pre-write-conversion to look up non-standard charsets. | 1384 ;; ctext-pre-write-conversion to look up non-standard charsets. |
1416 (defvar ctext-non-standard-designations-alist | 1385 (defvar ctext-non-standard-designations-alist |
1417 '(("$(0" . (big5 "big5-0" 2)) | 1386 '(("$(0" . (big5 "big5-0" 2)) |
2077 nil)))) | 2046 nil)))) |
2078 | 2047 |
2079 ;;; | 2048 ;;; |
2080 (provide 'mule) | 2049 (provide 'mule) |
2081 | 2050 |
2082 ;;; arch-tag: 9aebaa6e-0e8a-40a9-b857-cb5d04a39e7c | |
2083 ;;; mule.el ends here | 2051 ;;; mule.el ends here |