aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorWerner LEMBERG2001-12-18 17:51:50 +0000
committerWerner LEMBERG2001-12-18 17:51:50 +0000
commit5ef350634d8259cb27ff797c4b9ce864bdd9bd35 (patch)
tree85fd8af61838f58d4ce640e81944cb27fb15bd0c
parent5a13a7ec04bbb7f53ee755ee253d0fdcfe3dfc2b (diff)
downloademacs-5ef350634d8259cb27ff797c4b9ce864bdd9bd35.tar.gz
emacs-5ef350634d8259cb27ff797c4b9ce864bdd9bd35.zip
Improving doc strings.
-rw-r--r--lisp/language/cyrillic.el7
-rw-r--r--lisp/language/czech.el2
-rw-r--r--lisp/language/european.el30
-rw-r--r--lisp/language/greek.el2
-rw-r--r--lisp/language/hebrew.el5
-rw-r--r--lisp/language/indian.el2
-rw-r--r--lisp/language/japanese.el10
-rw-r--r--lisp/language/korean.el2
-rw-r--r--lisp/language/lao.el2
-rw-r--r--lisp/language/slovak.el2
-rw-r--r--lisp/language/thai.el2
-rw-r--r--lisp/language/tibetan.el2
-rw-r--r--lisp/language/vietnamese.el10
13 files changed, 41 insertions, 37 deletions
diff --git a/lisp/language/cyrillic.el b/lisp/language/cyrillic.el
index dbf51acbd52..43d91e46a3d 100644
--- a/lisp/language/cyrillic.el
+++ b/lisp/language/cyrillic.el
@@ -36,7 +36,7 @@
36 36
37(make-coding-system 37(make-coding-system
38 'cyrillic-iso-8bit 2 ?5 38 'cyrillic-iso-8bit 2 ?5
39 "ISO 2022 based 8-bit encoding for Cyrillic script (MIME:ISO-8859-5)" 39 "ISO 2022 based 8-bit encoding for Cyrillic script (MIME:ISO-8859-5)."
40 '(ascii cyrillic-iso8859-5 nil nil 40 '(ascii cyrillic-iso8859-5 nil nil
41 nil nil nil nil nil nil nil) 41 nil nil nil nil nil nil nil)
42 '((safe-charsets ascii cyrillic-iso8859-5) 42 '((safe-charsets ascii cyrillic-iso8859-5)
@@ -111,7 +111,8 @@
111 ;; but it is also used for Korean. 111 ;; but it is also used for Korean.
112 ;; So people who use koi8 for languages other than Russian 112 ;; So people who use koi8 for languages other than Russian
113 ;; will have to forgive us. 113 ;; will have to forgive us.
114 ?R "KOI8 8-bit encoding for Cyrillic (MIME: KOI8-R)" 114 ?R
115 "KOI8 8-bit encoding for Cyrillic (MIME: KOI8-R)."
115 '(ccl-decode-koi8 . ccl-encode-koi8) 116 '(ccl-decode-koi8 . ccl-encode-koi8)
116 `((safe-chars . ,(let ((table (make-char-table 'safe-chars)) 117 `((safe-chars . ,(let ((table (make-char-table 'safe-chars))
117 (i 0)) 118 (i 0))
@@ -202,7 +203,7 @@
202 203
203(make-coding-system 204(make-coding-system
204 'cyrillic-alternativnyj 4 ?A 205 'cyrillic-alternativnyj 4 ?A
205 "ALTERNATIVNYJ 8-bit encoding for Cyrillic" 206 "ALTERNATIVNYJ 8-bit encoding for Cyrillic."
206 '(ccl-decode-alternativnyj . ccl-encode-alternativnyj) 207 '(ccl-decode-alternativnyj . ccl-encode-alternativnyj)
207 `((safe-chars . ,(let ((table (make-char-table 'safe-chars)) 208 `((safe-chars . ,(let ((table (make-char-table 'safe-chars))
208 (i 0)) 209 (i 0))
diff --git a/lisp/language/czech.el b/lisp/language/czech.el
index 22166209442..32b2a7cd7fa 100644
--- a/lisp/language/czech.el
+++ b/lisp/language/czech.el
@@ -42,7 +42,7 @@
42 (documentation . "\ 42 (documentation . "\
43This language environment is almost the same as Latin-2, 43This language environment is almost the same as Latin-2,
44but default input method is set to \"czech\", 44but default input method is set to \"czech\",
45and select's the Czech tutorial.")) 45and the Czech tutorial is selected."))
46 '("European")) 46 '("European"))
47 47
48(provide 'czech) 48(provide 'czech)
diff --git a/lisp/language/european.el b/lisp/language/european.el
index 64664a544e5..959c1357f14 100644
--- a/lisp/language/european.el
+++ b/lisp/language/european.el
@@ -34,7 +34,7 @@
34 34
35(make-coding-system 35(make-coding-system
36 'iso-latin-1 2 ?1 36 'iso-latin-1 2 ?1
37 "ISO 2022 based 8-bit encoding for Latin-1 (MIME:ISO-8859-1)" 37 "ISO 2022 based 8-bit encoding for Latin-1 (MIME:ISO-8859-1)."
38 '(ascii latin-iso8859-1 nil nil 38 '(ascii latin-iso8859-1 nil nil
39 nil nil nil nil nil nil nil nil nil nil nil nil t) 39 nil nil nil nil nil nil nil nil nil nil nil nil t)
40 '((safe-charsets ascii latin-iso8859-1) 40 '((safe-charsets ascii latin-iso8859-1)
@@ -76,7 +76,7 @@ Indonesian/Malay, Tagalog (Philippines), Swahili and Afrikaans."))
76 76
77(make-coding-system 77(make-coding-system
78 'iso-latin-2 2 ?2 78 'iso-latin-2 2 ?2
79 "ISO 2022 based 8-bit encoding (MIME:ISO-8859-2)" 79 "ISO 2022 based 8-bit encoding for Latin-2 (MIME:ISO-8859-2)."
80 '(ascii latin-iso8859-2 nil nil 80 '(ascii latin-iso8859-2 nil nil
81 nil nil nil nil nil nil nil) 81 nil nil nil nil nil nil nil)
82 '((safe-charsets ascii latin-iso8859-2) 82 '((safe-charsets ascii latin-iso8859-2)
@@ -110,7 +110,7 @@ We also have specific language environments for the following languages:
110 110
111(make-coding-system 111(make-coding-system
112 'iso-latin-3 2 ?3 112 'iso-latin-3 2 ?3
113 "ISO 2022 based 8-bit encoding (MIME:ISO-8859-3)" 113 "ISO 2022 based 8-bit encoding for Latin-3 (MIME:ISO-8859-3)."
114 '(ascii latin-iso8859-3 nil nil 114 '(ascii latin-iso8859-3 nil nil
115 nil nil nil nil nil nil nil) 115 nil nil nil nil nil nil nil)
116 '((safe-charsets ascii latin-iso8859-3) 116 '((safe-charsets ascii latin-iso8859-3)
@@ -138,7 +138,7 @@ These languages are supported with the Latin-3 (ISO-8859-3) character set:
138 138
139(make-coding-system 139(make-coding-system
140 'iso-latin-4 2 ?4 140 'iso-latin-4 2 ?4
141 "ISO 2022 based 8-bit encoding (MIME:ISO-8859-4)" 141 "ISO 2022 based 8-bit encoding for Latin-4 (MIME:ISO-8859-4)."
142 '(ascii latin-iso8859-4 nil nil 142 '(ascii latin-iso8859-4 nil nil
143 nil nil nil nil nil nil nil) 143 nil nil nil nil nil nil nil)
144 '((safe-charsets ascii latin-iso8859-4) 144 '((safe-charsets ascii latin-iso8859-4)
@@ -166,7 +166,7 @@ These languages are supported with the Latin-4 (ISO-8859-4) character set:
166 166
167(make-coding-system 167(make-coding-system
168 'iso-latin-5 2 ?9 168 'iso-latin-5 2 ?9
169 "ISO 2022 based 8-bit encoding (MIME:ISO-8859-9)" 169 "ISO 2022 based 8-bit encoding for Latin-5 (MIME:ISO-8859-9)."
170 '(ascii latin-iso8859-9 nil nil 170 '(ascii latin-iso8859-9 nil nil
171 nil nil nil nil nil nil nil) 171 nil nil nil nil nil nil nil)
172 '((safe-charsets ascii latin-iso8859-9) 172 '((safe-charsets ascii latin-iso8859-9)
@@ -185,8 +185,8 @@ These languages are supported with the Latin-4 (ISO-8859-4) character set:
185 (input-method . "latin-5-postfix") 185 (input-method . "latin-5-postfix")
186 (documentation . "\ 186 (documentation . "\
187These languages are supported with the Latin-5 (ISO-8859-9) character set: 187These languages are supported with the Latin-5 (ISO-8859-9) character set:
188Bulgarian, Byelorussian, (Slavic) Macedonian, Russian, Serbian and 188 Bulgarian, Byelorussian, (Slavic) Macedonian, Russian, Serbian and
189Ukranian.")) ; says ISO 8859-1 189 Ukranian.")) ; says ISO 8859-1
190 '("European")) 190 '("European"))
191 191
192 192
@@ -195,7 +195,7 @@ Ukranian.")) ; says ISO 8859-1
195(make-coding-system 195(make-coding-system
196 'iso-latin-8 2 ?W ; `W' for `Welsh', since `C' 196 'iso-latin-8 2 ?W ; `W' for `Welsh', since `C'
197 ; for `Celtic' is taken. 197 ; for `Celtic' is taken.
198 "ISO 2022 based 8-bit encoding for Latin-8 (MIME:ISO-8859-14)" 198 "ISO 2022 based 8-bit encoding for Latin-8 (MIME:ISO-8859-14)."
199 '(ascii latin-iso8859-14 nil nil 199 '(ascii latin-iso8859-14 nil nil
200 nil nil nil nil nil nil nil nil nil nil nil nil t) 200 nil nil nil nil nil nil nil nil nil nil nil nil t)
201 '((safe-charsets ascii latin-iso8859-14) 201 '((safe-charsets ascii latin-iso8859-14)
@@ -217,15 +217,15 @@ Ukranian.")) ; says ISO 8859-1
217 (documentation . "\ 217 (documentation . "\
218This language environment is a generic one for the Latin-8 (ISO-8859-14) 218This language environment is a generic one for the Latin-8 (ISO-8859-14)
219character set which supports the Celtic languages, including those not 219character set which supports the Celtic languages, including those not
220covered by other ISO-8859 character sets: Welsh, Manx Gaelic and 220covered by other ISO-8859 character sets:
221Irish Gaelic (old orthography).")) 221 Welsh, Manx Gaelic and Irish Gaelic (old orthography)."))
222 '("European")) 222 '("European"))
223 223
224;; Latin-9 (ISO-8859-15) 224;; Latin-9 (ISO-8859-15)
225 225
226(make-coding-system 226(make-coding-system
227 'iso-latin-9 2 ?0 ; `0' for `Latin-0' 227 'iso-latin-9 2 ?0 ; `0' for `Latin-0'
228 "ISO 2022 based 8-bit encoding for Latin-9 (MIME:ISO-8859-15)" 228 "ISO 2022 based 8-bit encoding for Latin-9 (MIME:ISO-8859-15)."
229 '(ascii latin-iso8859-15 nil nil 229 '(ascii latin-iso8859-15 nil nil
230 nil nil nil nil nil nil nil nil nil nil nil nil t) 230 nil nil nil nil nil nil nil nil nil nil nil nil t)
231 '((safe-charsets ascii latin-iso8859-15) 231 '((safe-charsets ascii latin-iso8859-15)
@@ -266,7 +266,8 @@ German (Deutsch Nord) Guten Tag
266German (Deutsch S,A|(Bd) Gr,A|_(B Gott") 266German (Deutsch S,A|(Bd) Gr,A|_(B Gott")
267 (documentation . "\ 267 (documentation . "\
268This language environment is almost the same as Latin-1, 268This language environment is almost the same as Latin-1,
269but the default input method is set to \"german-postfix\".")) 269but the default input method is set to \"german-postfix\".
270Additionally, the tutorial is set to \"TUTORIAL.de\"."))
270 '("European")) 271 '("European"))
271 272
272(set-language-info-alist 273(set-language-info-alist
@@ -324,7 +325,7 @@ and it selects the Spanish tutorial."))
324 (sample-text . "Er is een aantal manieren waarop je dit kan doen") 325 (sample-text . "Er is een aantal manieren waarop je dit kan doen")
325 (documentation . "\ 326 (documentation . "\
326This language environment is almost the same as Latin-1, 327This language environment is almost the same as Latin-1,
327but select's the Dutch tutorial.")) 328but the Dutch tutorial is selected."))
328 '("European")) 329 '("European"))
329 330
330;; For Turkish, the character set ISO-8859-9 (Latin-5) is used. But, 331;; For Turkish, the character set ISO-8859-9 (Latin-5) is used. But,
@@ -568,7 +569,8 @@ but select's the Dutch tutorial."))
568 "CCL program to encode Mac Roman") 569 "CCL program to encode Mac Roman")
569 570
570(make-coding-system 571(make-coding-system
571 'mac-roman 4 ?M "Mac Roman Encoding" 572 'mac-roman 4 ?M
573 "Mac Roman Encoding (MIME:MACINTOSH)."
572 '(decode-mac-roman . encode-mac-roman) 574 '(decode-mac-roman . encode-mac-roman)
573 '((safe-chars . mac-roman-encoder) 575 '((safe-chars . mac-roman-encoder)
574 (valid-codes (0 . 255)) 576 (valid-codes (0 . 255))
diff --git a/lisp/language/greek.el b/lisp/language/greek.el
index 39702866755..2066e8a4951 100644
--- a/lisp/language/greek.el
+++ b/lisp/language/greek.el
@@ -30,7 +30,7 @@
30 30
31(make-coding-system 31(make-coding-system
32 'greek-iso-8bit 2 ?7 32 'greek-iso-8bit 2 ?7
33 "ISO 2022 based 8-bit encoding for Greek (MIME:ISO-8859-7)" 33 "ISO 2022 based 8-bit encoding for Greek (MIME:ISO-8859-7)."
34 '(ascii greek-iso8859-7 nil nil 34 '(ascii greek-iso8859-7 nil nil
35 nil nil nil nil nil nil nil) 35 nil nil nil nil nil nil nil)
36 '((safe-charsets ascii greek-iso8859-7) 36 '((safe-charsets ascii greek-iso8859-7)
diff --git a/lisp/language/hebrew.el b/lisp/language/hebrew.el
index f499a1ba053..ad349495a7b 100644
--- a/lisp/language/hebrew.el
+++ b/lisp/language/hebrew.el
@@ -33,7 +33,7 @@
33 33
34(make-coding-system 34(make-coding-system
35 'hebrew-iso-8bit 2 ?8 35 'hebrew-iso-8bit 2 ?8
36 "ISO 2022 based 8-bit encoding for Hebrew (MIME:ISO-8859-8)" 36 "ISO 2022 based 8-bit encoding for Hebrew (MIME:ISO-8859-8)."
37 '(ascii hebrew-iso8859-8 nil nil 37 '(ascii hebrew-iso8859-8 nil nil
38 nil ascii-eol ascii-cntl nil nil nil nil nil t) 38 nil ascii-eol ascii-cntl nil nil nil nil nil t)
39 '((safe-charsets ascii hebrew-iso8859-8) 39 '((safe-charsets ascii hebrew-iso8859-8)
@@ -62,7 +62,8 @@
62 "Windows-1255" '((coding-priority windows-1255) 62 "Windows-1255" '((coding-priority windows-1255)
63 (coding-system windows-1255) 63 (coding-system windows-1255)
64 (features code-pages) 64 (features code-pages)
65 (documentation . "Support for Windows-1255 encoding, e.g. for Yiddish. 65 (documentation . "\
66Support for Windows-1255 encoding, e.g. for Yiddish.
66Right-to-left writing is not yet supported."))) 67Right-to-left writing is not yet supported.")))
67 68
68(provide 'hebrew) 69(provide 'hebrew)
diff --git a/lisp/language/indian.el b/lisp/language/indian.el
index 74e7b170d57..e2b581d6a79 100644
--- a/lisp/language/indian.el
+++ b/lisp/language/indian.el
@@ -31,7 +31,7 @@
31 31
32(make-coding-system 32(make-coding-system
33 'in-is13194 2 ?D 33 'in-is13194 2 ?D
34 "8-bit encoding for ASCII (MSB=0) and IS13194-Devanagari (MSB=1)" 34 "8-bit encoding for ASCII (MSB=0) and IS13194-Devanagari (MSB=1)."
35 '(ascii indian-is13194 nil nil 35 '(ascii indian-is13194 nil nil
36 nil ascii-eol) 36 nil ascii-eol)
37 '((safe-charsets ascii indian-is13194) 37 '((safe-charsets ascii indian-is13194)
diff --git a/lisp/language/japanese.el b/lisp/language/japanese.el
index 20ec1aa2a50..dbb9d72cdb0 100644
--- a/lisp/language/japanese.el
+++ b/lisp/language/japanese.el
@@ -31,7 +31,7 @@
31 31
32(make-coding-system 32(make-coding-system
33 'iso-2022-jp 2 ?J 33 'iso-2022-jp 2 ?J
34 "ISO 2022 based 7bit encoding for Japanese (MIME:ISO-2022-JP)" 34 "ISO 2022 based 7bit encoding for Japanese (MIME:ISO-2022-JP)."
35 '((ascii japanese-jisx0208-1978 japanese-jisx0208 35 '((ascii japanese-jisx0208-1978 japanese-jisx0208
36 latin-jisx0201 japanese-jisx0212) nil nil nil 36 latin-jisx0201 japanese-jisx0212) nil nil nil
37 short ascii-eol ascii-cntl seven) 37 short ascii-eol ascii-cntl seven)
@@ -43,7 +43,7 @@
43 43
44(make-coding-system 44(make-coding-system
45 'iso-2022-jp-2 2 ?J 45 'iso-2022-jp-2 2 ?J
46 "ISO 2022 based 7bit encoding for CJK, Latin-1, and Greek (MIME:ISO-2022-JP-2)" 46 "ISO 2022 based 7bit encoding for CJK, Latin-1, and Greek (MIME:ISO-2022-JP-2)."
47 '((ascii japanese-jisx0208-1978 japanese-jisx0208 47 '((ascii japanese-jisx0208-1978 japanese-jisx0208
48 latin-jisx0201 japanese-jisx0212 48 latin-jisx0201 japanese-jisx0212
49 chinese-gb2312 korean-ksc5601) nil 49 chinese-gb2312 korean-ksc5601) nil
@@ -57,7 +57,7 @@
57 57
58(make-coding-system 58(make-coding-system
59 'japanese-shift-jis 1 ?S 59 'japanese-shift-jis 1 ?S
60 "Shift-JIS 8-bit encoding for Japanese (MIME:SHIFT_JIS)" 60 "Shift-JIS 8-bit encoding for Japanese (MIME:SHIFT_JIS)."
61 nil 61 nil
62 '((safe-charsets ascii japanese-jisx0208 japanese-jisx0208-1978 62 '((safe-charsets ascii japanese-jisx0208 japanese-jisx0208-1978
63 latin-jisx0201 katakana-jisx0201) 63 latin-jisx0201 katakana-jisx0201)
@@ -70,7 +70,7 @@
70 70
71(make-coding-system 71(make-coding-system
72 'japanese-iso-7bit-1978-irv 2 ?j 72 'japanese-iso-7bit-1978-irv 2 ?j
73 "ISO 2022 based 7-bit encoding for Japanese JISX0208-1978 and JISX0201-Roman" 73 "ISO 2022 based 7-bit encoding for Japanese JISX0208-1978 and JISX0201-Roman."
74 '((ascii japanese-jisx0208-1978 japanese-jisx0208 74 '((ascii japanese-jisx0208-1978 japanese-jisx0208
75 latin-jisx0201 japanese-jisx0212 katakana-jisx0201 t) nil nil nil 75 latin-jisx0201 japanese-jisx0212 katakana-jisx0201 t) nil nil nil
76 short ascii-eol ascii-cntl seven nil nil use-roman use-oldjis) 76 short ascii-eol ascii-cntl seven nil nil use-roman use-oldjis)
@@ -81,7 +81,7 @@
81 81
82(make-coding-system 82(make-coding-system
83 'japanese-iso-8bit 2 ?E 83 'japanese-iso-8bit 2 ?E
84 "ISO 2022 based EUC encoding for Japanese (MIME:EUC-JP)" 84 "ISO 2022 based EUC encoding for Japanese (MIME:EUC-JP)."
85 '(ascii japanese-jisx0208 katakana-jisx0201 japanese-jisx0212 85 '(ascii japanese-jisx0208 katakana-jisx0201 japanese-jisx0212
86 short ascii-eol ascii-cntl nil nil single-shift) 86 short ascii-eol ascii-cntl nil nil single-shift)
87 '((safe-charsets ascii latin-jisx0201 japanese-jisx0208 japanese-jisx0208-1978 87 '((safe-charsets ascii latin-jisx0201 japanese-jisx0208 japanese-jisx0208-1978
diff --git a/lisp/language/korean.el b/lisp/language/korean.el
index 466e7cce0b2..5398ef79ff6 100644
--- a/lisp/language/korean.el
+++ b/lisp/language/korean.el
@@ -30,7 +30,7 @@
30 30
31(make-coding-system 31(make-coding-system
32 'korean-iso-8bit 2 ?K 32 'korean-iso-8bit 2 ?K
33 "ISO 2022 based EUC encoding for Korean KSC5601 (MIME:EUC-KR)" 33 "ISO 2022 based EUC encoding for Korean KSC5601 (MIME:EUC-KR)."
34 '(ascii korean-ksc5601 nil nil 34 '(ascii korean-ksc5601 nil nil
35 nil ascii-eol ascii-cntl) 35 nil ascii-eol ascii-cntl)
36 '((safe-charsets ascii korean-ksc5601) 36 '((safe-charsets ascii korean-ksc5601)
diff --git a/lisp/language/lao.el b/lisp/language/lao.el
index d4c54d0c165..86d0caf8a46 100644
--- a/lisp/language/lao.el
+++ b/lisp/language/lao.el
@@ -29,7 +29,7 @@
29 29
30(make-coding-system 30(make-coding-system
31 'lao 2 ?L 31 'lao 2 ?L
32 "8-bit encoding for ASCII (MSB=0) and LAO (MSB=1)" 32 "8-bit encoding for ASCII (MSB=0) and LAO (MSB=1)."
33 '(ascii lao nil nil 33 '(ascii lao nil nil
34 nil nil) 34 nil nil)
35 '((safe-charsets ascii lao) 35 '((safe-charsets ascii lao)
diff --git a/lisp/language/slovak.el b/lisp/language/slovak.el
index cda4cbebe50..2f1a214f877 100644
--- a/lisp/language/slovak.el
+++ b/lisp/language/slovak.el
@@ -43,7 +43,7 @@
43 (documentation . "\ 43 (documentation . "\
44This language environment is almost the same as Latin-2, 44This language environment is almost the same as Latin-2,
45but default input method is set to \"slovak\", 45but default input method is set to \"slovak\",
46and select's the Slovak tutorial.")) 46and the Slovak tutorial is selected."))
47 '("European")) 47 '("European"))
48 48
49(provide 'slovak) 49(provide 'slovak)
diff --git a/lisp/language/thai.el b/lisp/language/thai.el
index 30e1c194bd4..931142f727b 100644
--- a/lisp/language/thai.el
+++ b/lisp/language/thai.el
@@ -30,7 +30,7 @@
30 30
31(make-coding-system 31(make-coding-system
32 'thai-tis620 2 ?T 32 'thai-tis620 2 ?T
33 "8-bit encoding for ASCII (MSB=0) and Thai TIS620 (MSB=1)" 33 "8-bit encoding for ASCII (MSB=0) and Thai TIS620 (MSB=1)."
34 '(ascii thai-tis620 nil nil 34 '(ascii thai-tis620 nil nil
35 nil ascii-eol) 35 nil ascii-eol)
36 '((safe-charsets ascii thai-tis620) 36 '((safe-charsets ascii thai-tis620)
diff --git a/lisp/language/tibetan.el b/lisp/language/tibetan.el
index 4f9068c0263..c993bb57c01 100644
--- a/lisp/language/tibetan.el
+++ b/lisp/language/tibetan.el
@@ -84,7 +84,7 @@
84 84
85(make-coding-system 85(make-coding-system
86 'tibetan-iso-8bit 2 ?Q 86 'tibetan-iso-8bit 2 ?Q
87 "8-bit encoding for ASCII (MSB=0) and TIBETAN (MSB=1)" 87 "8-bit encoding for ASCII (MSB=0) and TIBETAN (MSB=1)."
88 '(ascii tibetan nil nil 88 '(ascii tibetan nil nil
89 nil nil) 89 nil nil)
90 '((safe-charsets ascii tibetan) 90 '((safe-charsets ascii tibetan)
diff --git a/lisp/language/vietnamese.el b/lisp/language/vietnamese.el
index 92273b734af..c79c84e9631 100644
--- a/lisp/language/vietnamese.el
+++ b/lisp/language/vietnamese.el
@@ -133,7 +133,7 @@
133 133
134(make-coding-system 134(make-coding-system
135 'vietnamese-viscii 4 ?V 135 'vietnamese-viscii 4 ?V
136 "8-bit encoding for Vietnamese VISCII 1.1 (MIME:VISCII)" 136 "8-bit encoding for Vietnamese VISCII 1.1 (MIME:VISCII)."
137 '(ccl-decode-viscii . ccl-encode-viscii) 137 '(ccl-decode-viscii . ccl-encode-viscii)
138 '((safe-charsets ascii vietnamese-viscii-lower vietnamese-viscii-upper) 138 '((safe-charsets ascii vietnamese-viscii-lower vietnamese-viscii-upper)
139 (mime-charset . viscii) 139 (mime-charset . viscii)
@@ -143,7 +143,7 @@
143 143
144(make-coding-system 144(make-coding-system
145 'vietnamese-vscii 4 ?v 145 'vietnamese-vscii 4 ?v
146 "8-bit encoding for Vietnamese VSCII-1" 146 "8-bit encoding for Vietnamese VSCII-1."
147 '(ccl-decode-vscii . ccl-encode-vscii) 147 '(ccl-decode-vscii . ccl-encode-vscii)
148 '((safe-charsets ascii vietnamese-viscii-lower vietnamese-viscii-upper) 148 '((safe-charsets ascii vietnamese-viscii-lower vietnamese-viscii-upper)
149 (valid-codes (0 . 255)))) 149 (valid-codes (0 . 255))))
@@ -152,7 +152,7 @@
152 152
153(make-coding-system 153(make-coding-system
154 'vietnamese-viqr 0 ?q 154 'vietnamese-viqr 0 ?q
155 "Vietnamese latin transcription (VIQR)" 155 "Encoding for Vietnamese latin transcription (VIQR)."
156 nil 156 nil
157 '((safe-charsets ascii vietnamese-viscii-lower vietnamese-viscii-upper) 157 '((safe-charsets ascii vietnamese-viscii-lower vietnamese-viscii-upper)
158 (post-read-conversion . viqr-post-read-conversion) 158 (post-read-conversion . viqr-post-read-conversion)
@@ -183,8 +183,8 @@
183 (features viet-util) 183 (features viet-util)
184 (sample-text . "Vietnamese (Ti,1*(Bng Vi,1.(Bt) Ch,1`(Bo b,1U(Bn") 184 (sample-text . "Vietnamese (Ti,1*(Bng Vi,1.(Bt) Ch,1`(Bo b,1U(Bn")
185 (documentation . "\ 185 (documentation . "\
186For Vietnamese, Emacs uses special charasets internally. 186For Vietnamese, Emacs uses special character sets internally.
187They can be decoded from and encoded to VISCC, VSCII, and VIQR. 187They can be decoded from and encoded to VISCII, VSCII, and VIQR.
188Current setting put higher priority to the coding system VISCII than VSCII. 188Current setting put higher priority to the coding system VISCII than VSCII.
189If you prefer VSCII, please do: (prefer-coding-system 'vietnamese-vscii)") 189If you prefer VSCII, please do: (prefer-coding-system 'vietnamese-vscii)")
190 )) 190 ))