/[emacs]/emacs/lisp/language/vietnamese.el
ViewVC logotype

Diff of /emacs/lisp/language/vietnamese.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.27 by pj, Mon Apr 29 09:02:12 2002 UTC revision 1.27.2.1 by miles, Fri Apr 4 06:20:27 2003 UTC
# Line 38  Line 38 
38     64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79     64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79
39     80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95     80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95
40     96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111     96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111
41     112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127     112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127
42     ?,2U(B ?,2!(B ?,2"(B ?,2#(B ?,2$(B ?,2%(B ?,2&(B ?,2'(B ?,2((B ?,2)(B ?,2*(B ?,2+(B ?,2,(B ?,2-(B ?,2.(B ?,2/(B     ?,2U(B ?,2!(B ?,2"(B ?,2#(B ?,2$(B ?,2%(B ?,2&(B ?,2'(B ?,2((B ?,2)(B ?,2*(B ?,2+(B ?,2,(B ?,2-(B ?,2.(B ?,2/(B
43     ?,20(B ?,21(B ?,22(B ?,25(B ?,2~(B ?,2>(B ?,26(B ?,27(B ?,28(B ?,2v(B ?,2w(B ?,2o(B ?,2|(B ?,2{(B ?,2x(B ?,2O(B     ?,20(B ?,21(B ?,22(B ?,25(B ?,2~(B ?,2>(B ?,26(B ?,27(B ?,28(B ?,2v(B ?,2w(B ?,2o(B ?,2|(B ?,2{(B ?,2x(B ?,2O(B
44     ?,2u(B ?,1!(B ?,1"(B ?,1#(B ?,1$(B ?,1%(B ?,1&(B ?,1'(B ?,1((B ?,1)(B ?,1*(B ?,1+(B ?,1,(B ?,1-(B ?,1.(B ?,1/(B     ?,2u(B ?,1!(B ?,1"(B ?,1#(B ?,1$(B ?,1%(B ?,1&(B ?,1'(B ?,1((B ?,1)(B ?,1*(B ?,1+(B ?,1,(B ?,1-(B ?,1.(B ?,1/(B
# Line 66  Line 66 
66     64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79     64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79
67     80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95     80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95
68     96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111     96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111
69     112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127     112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127
70     ?,2`(B ?,2d(B ?,2c(B ?,2a(B ?,2U(B ?,2#(B ?,2'(B ?,2h(B ?,2k(B ?,2((B ?,2i(B ?,2)(B ?,2.(B ?,2l(B ?,2o(B ?,2n(B     ?,2`(B ?,2d(B ?,2c(B ?,2a(B ?,2U(B ?,2#(B ?,2'(B ?,2h(B ?,2k(B ?,2((B ?,2i(B ?,2)(B ?,2.(B ?,2l(B ?,2o(B ?,2n(B
71     ?,2m(B ?,28(B ?,2r(B ?,2v(B ?,2u(B ?,2s(B ?,2w(B ?,25(B ?,26(B ?,27(B ?,2^(B ?,2>(B ?,2~(B ?,2y(B ?,2|(B ?,2{(B     ?,2m(B ?,28(B ?,2r(B ?,2v(B ?,2u(B ?,2s(B ?,2w(B ?,25(B ?,26(B ?,27(B ?,2^(B ?,2>(B ?,2~(B ?,2y(B ?,2|(B ?,2{(B
72     160 ?,2e(B ?,2b(B ?,2j(B ?,2t(B ?,2=(B ?,2_(B ?,2p(B ?,1e(B ?,1b(B ?,1j(B ?,1t(B ?,1=(B ?,1y(B ?,1p(B ?,2"(B     160 ?,2e(B ?,2b(B ?,2j(B ?,2t(B ?,2=(B ?,2_(B ?,2p(B ?,1e(B ?,1b(B ?,1j(B ?,1t(B ?,1=(B ?,1y(B ?,1p(B ?,2"(B
# Line 92  Line 92 
92     64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79     64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79
93     80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95     80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95
94     96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111     96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111
95     112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127     112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127
96     ?,2`(B ?,2d(B ?,2c(B ?,2a(B ?,2U(B ?,2#(B ?,2'(B ?,2h(B ?,2k(B ?,2((B ?,2i(B ?,2)(B ?,2.(B ?,2l(B ?,2o(B ?,2n(B     ?,2`(B ?,2d(B ?,2c(B ?,2a(B ?,2U(B ?,2#(B ?,2'(B ?,2h(B ?,2k(B ?,2((B ?,2i(B ?,2)(B ?,2.(B ?,2l(B ?,2o(B ?,2n(B
97     ?,2m(B ?,28(B ?,2r(B ?,2v(B ?,2u(B ?,2s(B ?,2w(B ?,25(B ?,26(B ?,27(B ?,2^(B ?,2>(B ?,2~(B ?,2y(B ?,2|(B ?,2{(B     ?,2m(B ?,28(B ?,2r(B ?,2v(B ?,2u(B ?,2s(B ?,2w(B ?,25(B ?,26(B ?,27(B ?,2^(B ?,2>(B ?,2~(B ?,2y(B ?,2|(B ?,2{(B
98     160 ?,2e(B ?,2b(B ?,2j(B ?,2t(B ?,2=(B ?,2_(B ?,2p(B ?,1e(B ?,1b(B ?,1j(B ?,1t(B ?,1=(B ?,1_(B ?,1p(B ?,2"(B     160 ?,2e(B ?,2b(B ?,2j(B ?,2t(B ?,2=(B ?,2_(B ?,2p(B ?,1e(B ?,1b(B ?,1j(B ?,1t(B ?,1=(B ?,1_(B ?,1p(B ?,2"(B
# Line 127  Line 127 
127  ;;    ?,1`(B ?,1a(B ?,1b(B ?,1c(B ?,1d(B ?,1U(B ?,1e(B 231 ?,1h(B ?,1i(B ?,1j(B ?,1((B ?,1l(B ?,1m(B 238 ?,1n(B  ;;    ?,1`(B ?,1a(B ?,1b(B ?,1c(B ?,1d(B ?,1U(B ?,1e(B 231 ?,1h(B ?,1i(B ?,1j(B ?,1((B ?,1l(B ?,1m(B 238 ?,1n(B
128  ;;    ?,2G(B ?,2p(B ?,1r(B ?,1s(B ?,1t(B ?,1u(B 246 ?,2=(B ?,1x(B ?,1y(B ?,1z(B ?,1|(B 252 ?,2V(B ?,2((B ?,1O(B]  ;;    ?,2G(B ?,2p(B ?,1r(B ?,1s(B ?,1t(B ?,1u(B 246 ?,2=(B ?,1x(B ?,1y(B ?,1z(B ?,1|(B 252 ?,2V(B ?,2((B ?,1O(B]
129  ;;   "Vietnamese VPS decoding table.")  ;;   "Vietnamese VPS decoding table.")
130  ;;  ;;
131  ;; (let ((table (make-translation-table-from-vector viet-vps-decode-table)))  ;; (let ((table (make-translation-table-from-vector viet-vps-decode-table)))
132  ;;   (define-translation-table 'viet-vps-nonascii-translation-table table)  ;;   (define-translation-table 'viet-vps-nonascii-translation-table table)
133  ;;   (define-translation-table 'viet-vps-encode-table  ;;   (define-translation-table 'viet-vps-encode-table
# Line 220  Line 220 
220  ;;       (write-multibyte-character r0 r1)  ;;       (write-multibyte-character r0 r1)
221  ;;       (repeat))))  ;;       (repeat))))
222  ;;   "CCL program to decode VPS.")  ;;   "CCL program to decode VPS.")
223  ;;  ;;
224  ;; (define-ccl-program ccl-encode-vps  ;; (define-ccl-program ccl-encode-vps
225  ;;   `(1  ;;   `(1
226  ;;     ((loop  ;;     ((loop
# Line 228  Line 228 
228  ;;       (translate-character viet-vps-encode-table r0 r1)  ;;       (translate-character viet-vps-encode-table r0 r1)
229  ;;       (write-repeat r1))))  ;;       (write-repeat r1))))
230  ;;   "CCL program to encode VPS.")  ;;   "CCL program to encode VPS.")
231  ;;  ;;
232  ;; (define-ccl-program ccl-encode-vps-font  ;; (define-ccl-program ccl-encode-vps-font
233  ;;   `(0  ;;   `(0
234  ;;     ;; In:  R0:vietnamese-viscii-lower/vietnamese-viscii-upper  ;;     ;; In:  R0:vietnamese-viscii-lower/vietnamese-viscii-upper
# Line 271  Line 271 
271  ;;  '(ccl-decode-vps . ccl-encode-vps)  ;;  '(ccl-decode-vps . ccl-encode-vps)
272  ;;  '((safe-charsets ascii vietnamese-viscii-lower vietnamese-viscii-upper)  ;;  '((safe-charsets ascii vietnamese-viscii-lower vietnamese-viscii-upper)
273  ;;    (valid-codes (0 . 255))))  ;;    (valid-codes (0 . 255))))
274  ;;  ;;
275  ;; (define-coding-system-alias 'vps 'vietnamese-vps)  ;; (define-coding-system-alias 'vps 'vietnamese-vps)
276    
277  (make-coding-system  (make-coding-system
# Line 310  Line 310 
310                  (features viet-util)                  (features viet-util)
311                  (sample-text . "Vietnamese (Ti,1*(Bng Vi,1.(Bt)     Ch,1`(Bo b,1U(Bn")                  (sample-text . "Vietnamese (Ti,1*(Bng Vi,1.(Bt)     Ch,1`(Bo b,1U(Bn")
312                  (documentation . "\                  (documentation . "\
313  For Vietnamese, Emacs uses special charasets internally.  For Vietnamese, Emacs uses special charsets internally.
314  They can be decoded from and encoded to VISCII, VSCII, TCVN-5712, and  They can be decoded from and encoded to VISCII, VSCII, TCVN-5712, and
315  VIQR.  VSCII is deprecated in favour of TCVN-5712.  Current setting  VIQR.  VSCII is deprecated in favour of TCVN-5712.  Current setting
316  put higher priority to the coding system VISCII than TCVN-5712.  If  puts higher priority to the coding system VISCII than TCVN-5712.  If
317  you prefer TCVN-5712, please do: (prefer-coding-system 'vietnamese-tcvn).  you prefer TCVN-5712, please do: (prefer-coding-system 'vietnamese-tcvn).
318  There are two Vietnamese input methods: VIQR and Telex, VIQR is the  There are two Vietnamese input methods: VIQR and Telex, VIQR is the
319  default setting.")  default setting.")

Legend:
Removed from v.1.27  
changed lines
  Added in v.1.27.2.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26