[Emacs-diffs] Changes to emacs/lisp/language/vietnamese.el

[Juanma Barranquero]

Index: emacs/lisp/language/vietnamese.el
diff -c emacs/lisp/language/vietnamese.el:1.27 
emacs/lisp/language/vietnamese.el:1.28
*** emacs/lisp/language/vietnamese.el:1.27      Mon Apr 29 05:02:12 2002
--- emacs/lisp/language/vietnamese.el   Tue Feb  4 08:11:50 2003
***************
*** 38,44 ****
     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 
     ?,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
     ?,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
     ?,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
--- 38,44 ----
     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
     ?,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
     ?,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
     ?,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
***************
*** 66,72 ****
     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 
     ?,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
     ?,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
     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
--- 66,72 ----
     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
     ?,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
     ?,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
     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
***************
*** 92,98 ****
     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 
     ?,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
     ?,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
     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
--- 92,98 ----
     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
     ?,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
     ?,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
     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
***************
*** 127,133 ****
  ;;    ?,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
  ;;    ?,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]
  ;;   "Vietnamese VPS decoding table.")
! ;; 
  ;; (let ((table (make-translation-table-from-vector viet-vps-decode-table)))
  ;;   (define-translation-table 'viet-vps-nonascii-translation-table table)
  ;;   (define-translation-table 'viet-vps-encode-table
--- 127,133 ----
  ;;    ?,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
  ;;    ?,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]
  ;;   "Vietnamese VPS decoding table.")
! ;;
  ;; (let ((table (make-translation-table-from-vector viet-vps-decode-table)))
  ;;   (define-translation-table 'viet-vps-nonascii-translation-table table)
  ;;   (define-translation-table 'viet-vps-encode-table
***************
*** 220,226 ****
  ;;     (write-multibyte-character r0 r1)
  ;;     (repeat))))
  ;;   "CCL program to decode VPS.")
! ;; 
  ;; (define-ccl-program ccl-encode-vps
  ;;   `(1
  ;;     ((loop
--- 220,226 ----
  ;;     (write-multibyte-character r0 r1)
  ;;     (repeat))))
  ;;   "CCL program to decode VPS.")
! ;;
  ;; (define-ccl-program ccl-encode-vps
  ;;   `(1
  ;;     ((loop
***************
*** 228,234 ****
  ;;     (translate-character viet-vps-encode-table r0 r1)
  ;;     (write-repeat r1))))
  ;;   "CCL program to encode VPS.")
! ;; 
  ;; (define-ccl-program ccl-encode-vps-font
  ;;   `(0
  ;;     ;; In:  R0:vietnamese-viscii-lower/vietnamese-viscii-upper
--- 228,234 ----
  ;;     (translate-character viet-vps-encode-table r0 r1)
  ;;     (write-repeat r1))))
  ;;   "CCL program to encode VPS.")
! ;;
  ;; (define-ccl-program ccl-encode-vps-font
  ;;   `(0
  ;;     ;; In:  R0:vietnamese-viscii-lower/vietnamese-viscii-upper
***************
*** 271,277 ****
  ;;  '(ccl-decode-vps . ccl-encode-vps)
  ;;  '((safe-charsets ascii vietnamese-viscii-lower vietnamese-viscii-upper)
  ;;    (valid-codes (0 . 255))))
! ;; 
  ;; (define-coding-system-alias 'vps 'vietnamese-vps)
  
  (make-coding-system
--- 271,277 ----
  ;;  '(ccl-decode-vps . ccl-encode-vps)
  ;;  '((safe-charsets ascii vietnamese-viscii-lower vietnamese-viscii-upper)
  ;;    (valid-codes (0 . 255))))
! ;;
  ;; (define-coding-system-alias 'vps 'vietnamese-vps)
  
  (make-coding-system