;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:47:14 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/language/vietnamese.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file contains multibyte non-ASCII characters ;;; and therefore cannot be loaded into Emacs 19. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "20"))) (error "`vietnamese.el' was compiled for Emacs 20 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@35 Vietnamese VISCII decoding table. (defvar viet-viscii-decode-table [0 1 6598 3 4 6599 6631 7 8 9 10 11 12 13 14 15 16 17 18 19 6614 21 22 23 24 6619 26 27 28 29 6620 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 6613 6561 6562 6563 6564 6565 6566 6567 6568 6569 6570 6571 6572 6573 6574 6575 6576 6577 6578 6581 6654 6590 6582 6583 6584 6646 6647 6639 6652 6651 6648 6607 6645 6433 6434 6435 6436 6437 6438 6439 6440 6441 6442 6443 6444 6445 6446 6447 6448 6449 6450 6622 6589 6453 6454 6455 6456 6641 6609 6615 6616 6461 6462 6623 6624 6625 6626 6627 6628 6629 6470 6471 6632 6633 6634 6635 6636 6637 6638 6479 6640 6481 6642 6643 6644 6485 6486 6487 6488 6649 6650 6491 6492 6653 6494 6495 6496 6497 6498 6499 6500 6501 6502 6503 6504 6505 6506 6507 6508 6509 6510 6511 6512 6513 6514 6515 6516 6517 6518 6519 6520 6521 6522 6523 6524 6525 6526 6630] (#$ . 631)) (byte-code "\302!\303\304 \"\210\303\305\306 \307\"\"\210)\302\207" [viet-viscii-decode-table table make-translation-table-from-vector define-translation-table viet-viscii-nonascii-translation-table viet-viscii-encode-table char-table-extra-slot 0] 5) #@34 Vietnamese VSCII decoding table. (defvar viet-vscii-decode-table [0 6650 6648 3 6615 6616 6630 7 8 9 10 11 12 13 14 15 16 6609 6623 6607 6614 6619 6653 6620 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 6624 6628 6627 6625 6613 6563 6567 6632 6635 6568 6633 6569 6574 6636 6639 6638 6637 6584 6642 6646 6645 6643 6647 6581 6582 6583 6622 6590 6654 6649 6652 6651 160 6629 6626 6634 6644 6589 6623 6640 6501 6498 6506 6516 6461 6521 6512 6562 192 193 194 195 196 6496 6500 6499 6497 6485 6598 6434 6470 6471 6433 6599 6561 6565 6566 6631 6565 6571 6435 6437 6438 6503 6436 6439 6504 6572 6507 6440 6505 6441 6443 6444 6445 6442 6446 6508 6511 6573 6570 6576 6510 6509 6456 6514 6577 6518 6517 6515 6519 6448 6449 6450 6447 6453 6454 6455 6494 6462 6526 6521 6578 6524 6523 6522 6520 6487 6488 6502 6481 6513 6479 6486 6491 6525 6492 6575] (#$ . 2029)) (byte-code "\306!\307\310 \"\210\307\311\312 \313\"\"\210)\314\304 B\315\304\316\317#\210\n\315\304\320\321\304\n\"#\210)\322\305 B\315\305\316\323#\210\n\315\305\320\321\305\n\"#\210)\324\325 B\315\325\316\326#\210\n\315\325\320\321\325\n\"#\210)\327\330 B\315\330\316\331#\210\n\315\330\320\321\330\n\"#\210)\332\333 B\315\333\316\334#\210\n\315\333\320\321\333\n\"#\210)\335\336 B\315\336\316\337#\210\n\315\336\320\321\336\n\"#\210)\340\341\342\343\344\345\346&\210\347\350\341\"\210\340\351\342\352\353\354\355&\210\347\356\351\"\210\340\357\313\360\361\362\363&\210\347\364\357\"\210\365@B@\366@B@\367\370\371\372\373\374NB\375BB\"\210\376\377!\207" [viet-vscii-decode-table table prog current-load-list ccl-decode-viscii ccl-encode-viscii make-translation-table-from-vector define-translation-table viet-vscii-nonascii-translation-table viet-vscii-encode-table char-table-extra-slot 0 [3 8 1 46 49215 (viet-viscii-nonascii-translation-table . translation-table-id) 16447 -1532 22] put variable-documentation "CCL program to decode VISCII 1.1" ccl-program-idx register-ccl-program [1 6 63 49215 (viet-viscii-encode-table . translation-table-id) -986 22] "CCL program to encode VISCII 1.1" [0 4 49215 (viet-viscii-encode-table . translation-table-id) 22] ccl-encode-viscii-font "CCL program to encode Vietnamese chars to VISCII 1.1 font" [3 8 1 46 49215 (viet-vscii-nonascii-translation-table . translation-table-id) 16447 -1532 22] ccl-decode-vscii "CCL program to decode VSCII-1." [1 6 63 49215 (viet-vscii-encode-table . translation-table-id) -986 22] ccl-encode-vscii "CCL program to encode VSCII-1." [0 4 49215 (viet-vscii-encode-table . translation-table-id) 22] ccl-encode-vscii-font "CCL program to encode Vietnamese chars to VSCII-1 font." make-coding-system vietnamese-viscii 4 86 "8-bit encoding for Vietnamese VISCII 1.1 (MIME:VISCII)" (ccl-decode-viscii . ccl-encode-viscii) ((safe-charsets ascii vietnamese-viscii-lower vietnamese-viscii-upper) (mime-charset . viscii) (valid-codes (0 . 255))) define-coding-system-alias viscii vietnamese-vscii 118 "8-bit encoding for Vietnamese VSCII-1" (ccl-decode-vscii . ccl-encode-vscii) ((safe-charsets ascii vietnamese-viscii-lower vietnamese-viscii-upper) (valid-codes (0 . 255))) vscii vietnamese-viqr 113 "Vietnamese latin transcription (VIQR)" nil ((safe-charsets ascii vietnamese-viscii-lower vietnamese-viscii-upper) (post-read-conversion . viqr-post-read-conversion) (pre-write-conversion . viqr-pre-write-conversion) (charset-origin-alist (vietnamese-viscii-lower "VISCII" viet-encode-viscii-char) (vietnamese-viscii-upper "VISCII" viet-encode-viscii-char))) viqr ("viscii" . ccl-encode-viscii-font) ("vscii" . ccl-encode-vscii-font) set-language-info-alist "Vietnamese" (charset vietnamese-viscii-lower vietnamese-viscii-upper) nonascii-translation viet-viscii-nonascii-translation-table translation-table ((coding-system vietnamese-viscii vietnamese-vscii vietnamese-viqr) (coding-priority vietnamese-viscii) (input-method . "vietnamese-viqr") (unibyte-display . vietnamese-viscii) (features viet-util) (sample-text . "Vietnamese (Tiš¢ªng Viš¢®t) Chš¢ào bš¢Õn") (documentation . "For Vietnamese, Emacs uses special charsets internally.\nThey can be decoded from and encoded to VISCC, VSCII, and VIQR.\nCurrent setting puts higher priority to the coding system VISCII than VSCII.\nIf you prefer VSCII, please do: (prefer-coding-system 'vietnamese-vscii)")) provide vietnamese font-ccl-encoder-alist] 7)