Mercurial > emacs

changeset 42152:e3ae5ef41293

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Improving doc strings.
author Werner LEMBERG <wl@gnu.org>
date Tue, 18 Dec 2001 17:51:50 +0000
parents e9a441eabced
children ca6dbe4635da
files lisp/language/cyrillic.el lisp/language/czech.el lisp/language/european.el lisp/language/greek.el lisp/language/hebrew.el lisp/language/indian.el lisp/language/japanese.el lisp/language/korean.el lisp/language/lao.el lisp/language/slovak.el lisp/language/thai.el lisp/language/tibetan.el lisp/language/vietnamese.el
diffstat 13 files changed, 41 insertions(+), 37 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/language/cyrillic.el	Tue Dec 18 17:48:08 2001 +0000
+++ b/lisp/language/cyrillic.el	Tue Dec 18 17:51:50 2001 +0000
@@ -36,7 +36,7 @@
 
 (make-coding-system
  'cyrillic-iso-8bit 2 ?5
- "ISO 2022 based 8-bit encoding for Cyrillic script (MIME:ISO-8859-5)"
+ "ISO 2022 based 8-bit encoding for Cyrillic script (MIME:ISO-8859-5)."
  '(ascii cyrillic-iso8859-5  nil nil
    nil nil nil nil nil nil nil)
  '((safe-charsets ascii cyrillic-iso8859-5)
@@ -111,7 +111,8 @@
  ;; but it is also used for Korean.
  ;; So people who use koi8 for languages other than Russian
  ;; will have to forgive us.
- ?R "KOI8 8-bit encoding for Cyrillic (MIME: KOI8-R)"
+ ?R
+ "KOI8 8-bit encoding for Cyrillic (MIME: KOI8-R)."
  '(ccl-decode-koi8 . ccl-encode-koi8)
  `((safe-chars . ,(let ((table (make-char-table 'safe-chars))
 			(i 0))
@@ -202,7 +203,7 @@
 	     
 (make-coding-system
  'cyrillic-alternativnyj 4 ?A
- "ALTERNATIVNYJ 8-bit encoding for Cyrillic"
+ "ALTERNATIVNYJ 8-bit encoding for Cyrillic."
  '(ccl-decode-alternativnyj . ccl-encode-alternativnyj)
  `((safe-chars . ,(let ((table (make-char-table 'safe-chars))
 			(i 0))
--- a/lisp/language/czech.el	Tue Dec 18 17:48:08 2001 +0000
+++ b/lisp/language/czech.el	Tue Dec 18 17:51:50 2001 +0000
@@ -42,7 +42,7 @@
 	   (documentation . "\
 This language environment is almost the same as Latin-2,
 but default input method is set to \"czech\",
-and select's the Czech tutorial."))
+and the Czech tutorial is selected."))
  '("European"))
 
 (provide 'czech)
--- a/lisp/language/european.el	Tue Dec 18 17:48:08 2001 +0000
+++ b/lisp/language/european.el	Tue Dec 18 17:51:50 2001 +0000
@@ -34,7 +34,7 @@
 
 (make-coding-system
  'iso-latin-1 2 ?1
- "ISO 2022 based 8-bit encoding for Latin-1 (MIME:ISO-8859-1)"
+ "ISO 2022 based 8-bit encoding for Latin-1 (MIME:ISO-8859-1)."
  '(ascii latin-iso8859-1 nil nil
    nil nil nil nil nil nil nil nil nil nil nil nil t)
  '((safe-charsets ascii latin-iso8859-1)
@@ -76,7 +76,7 @@
 
 (make-coding-system
  'iso-latin-2 2 ?2
- "ISO 2022 based 8-bit encoding (MIME:ISO-8859-2)"
+ "ISO 2022 based 8-bit encoding for Latin-2 (MIME:ISO-8859-2)."
  '(ascii latin-iso8859-2 nil nil
    nil nil nil nil nil nil nil)
  '((safe-charsets ascii latin-iso8859-2)
@@ -110,7 +110,7 @@
 
 (make-coding-system
  'iso-latin-3 2 ?3
- "ISO 2022 based 8-bit encoding (MIME:ISO-8859-3)"
+ "ISO 2022 based 8-bit encoding for Latin-3 (MIME:ISO-8859-3)."
  '(ascii latin-iso8859-3 nil nil
    nil nil nil nil nil nil nil)
  '((safe-charsets ascii latin-iso8859-3)
@@ -138,7 +138,7 @@
 
 (make-coding-system
  'iso-latin-4 2 ?4
- "ISO 2022 based 8-bit encoding (MIME:ISO-8859-4)"
+ "ISO 2022 based 8-bit encoding for Latin-4 (MIME:ISO-8859-4)."
  '(ascii latin-iso8859-4 nil nil
    nil nil nil nil nil nil nil)
  '((safe-charsets ascii latin-iso8859-4)
@@ -166,7 +166,7 @@
 
 (make-coding-system
  'iso-latin-5 2 ?9
- "ISO 2022 based 8-bit encoding (MIME:ISO-8859-9)"
+ "ISO 2022 based 8-bit encoding for Latin-5 (MIME:ISO-8859-9)."
  '(ascii latin-iso8859-9 nil nil
    nil nil nil nil nil nil nil)
  '((safe-charsets ascii latin-iso8859-9)
@@ -185,8 +185,8 @@
 	     (input-method . "latin-5-postfix")
 	     (documentation . "\
 These languages are supported with the Latin-5 (ISO-8859-9) character set:
-Bulgarian, Byelorussian, (Slavic) Macedonian, Russian, Serbian and
-Ukranian."))				; says ISO 8859-1
+ Bulgarian, Byelorussian, (Slavic) Macedonian, Russian, Serbian and
+ Ukranian."))				; says ISO 8859-1
  '("European"))
 
 
@@ -195,7 +195,7 @@
 (make-coding-system
  'iso-latin-8 2 ?W			; `W' for `Welsh', since `C'
 					; for `Celtic' is taken.
- "ISO 2022 based 8-bit encoding for Latin-8 (MIME:ISO-8859-14)"
+ "ISO 2022 based 8-bit encoding for Latin-8 (MIME:ISO-8859-14)."
  '(ascii latin-iso8859-14 nil nil
    nil nil nil nil nil nil nil nil nil nil nil nil t)
  '((safe-charsets ascii latin-iso8859-14)
@@ -217,15 +217,15 @@
 	     (documentation . "\
 This language environment is a generic one for the Latin-8 (ISO-8859-14)
 character set which supports the Celtic languages, including those not
-covered by other ISO-8859 character sets: Welsh, Manx Gaelic and
-Irish Gaelic (old orthography)."))
+covered by other ISO-8859 character sets:
+ Welsh, Manx Gaelic and Irish Gaelic (old orthography)."))
  '("European"))
 
 ;; Latin-9 (ISO-8859-15)
 
 (make-coding-system
  'iso-latin-9 2 ?0			; `0' for `Latin-0'
- "ISO 2022 based 8-bit encoding for Latin-9 (MIME:ISO-8859-15)"
+ "ISO 2022 based 8-bit encoding for Latin-9 (MIME:ISO-8859-15)."
  '(ascii latin-iso8859-15 nil nil
    nil nil nil nil nil nil nil nil nil nil nil nil t)
  '((safe-charsets ascii latin-iso8859-15)
@@ -266,7 +266,8 @@
 German (Deutsch S,A|(Bd)	Gr,A|_(B Gott")
 	    (documentation . "\
 This language environment is almost the same as Latin-1,
-but the default input method is set to \"german-postfix\"."))
+but the default input method is set to \"german-postfix\".
+Additionally, the tutorial is set to \"TUTORIAL.de\"."))
  '("European"))
 
 (set-language-info-alist
@@ -324,7 +325,7 @@
 	   (sample-text . "Er is een aantal manieren waarop je dit kan doen")
 	   (documentation . "\
 This language environment is almost the same as Latin-1,
-but select's the Dutch tutorial."))
+but the Dutch tutorial is selected."))
  '("European"))
 
 ;; For Turkish, the character set ISO-8859-9 (Latin-5) is used.  But,
@@ -568,7 +569,8 @@
   "CCL program to encode Mac Roman")
 
 (make-coding-system
- 'mac-roman 4 ?M "Mac Roman Encoding"
+ 'mac-roman 4 ?M
+ "Mac Roman Encoding (MIME:MACINTOSH)."
  '(decode-mac-roman . encode-mac-roman)
  '((safe-chars . mac-roman-encoder)
    (valid-codes (0 . 255))
--- a/lisp/language/greek.el	Tue Dec 18 17:48:08 2001 +0000
+++ b/lisp/language/greek.el	Tue Dec 18 17:51:50 2001 +0000
@@ -30,7 +30,7 @@
 
 (make-coding-system
  'greek-iso-8bit 2 ?7
- "ISO 2022 based 8-bit encoding for Greek (MIME:ISO-8859-7)"
+ "ISO 2022 based 8-bit encoding for Greek (MIME:ISO-8859-7)."
  '(ascii greek-iso8859-7 nil nil
    nil nil nil nil nil nil nil)
  '((safe-charsets ascii greek-iso8859-7)
--- a/lisp/language/hebrew.el	Tue Dec 18 17:48:08 2001 +0000
+++ b/lisp/language/hebrew.el	Tue Dec 18 17:51:50 2001 +0000
@@ -33,7 +33,7 @@
 
 (make-coding-system
  'hebrew-iso-8bit 2 ?8
- "ISO 2022 based 8-bit encoding for Hebrew (MIME:ISO-8859-8)"
+ "ISO 2022 based 8-bit encoding for Hebrew (MIME:ISO-8859-8)."
  '(ascii hebrew-iso8859-8 nil nil
    nil ascii-eol ascii-cntl nil nil nil nil nil t)
  '((safe-charsets ascii hebrew-iso8859-8)
@@ -62,7 +62,8 @@
  "Windows-1255" '((coding-priority windows-1255)
 		  (coding-system windows-1255)
 		  (features code-pages)
-		  (documentation . "Support for Windows-1255 encoding, e.g. for Yiddish.
+		  (documentation . "\
+Support for Windows-1255 encoding, e.g. for Yiddish.
 Right-to-left writing is not yet supported.")))
 
 (provide 'hebrew)
--- a/lisp/language/indian.el	Tue Dec 18 17:48:08 2001 +0000
+++ b/lisp/language/indian.el	Tue Dec 18 17:51:50 2001 +0000
@@ -31,7 +31,7 @@
 
 (make-coding-system
  'in-is13194 2 ?D
- "8-bit encoding for ASCII (MSB=0) and IS13194-Devanagari (MSB=1)"
+ "8-bit encoding for ASCII (MSB=0) and IS13194-Devanagari (MSB=1)."
  '(ascii indian-is13194 nil nil
    nil ascii-eol)
  '((safe-charsets ascii indian-is13194)
--- a/lisp/language/japanese.el	Tue Dec 18 17:48:08 2001 +0000
+++ b/lisp/language/japanese.el	Tue Dec 18 17:51:50 2001 +0000
@@ -31,7 +31,7 @@
 
 (make-coding-system
  'iso-2022-jp 2 ?J
- "ISO 2022 based 7bit encoding for Japanese (MIME:ISO-2022-JP)"
+ "ISO 2022 based 7bit encoding for Japanese (MIME:ISO-2022-JP)."
  '((ascii japanese-jisx0208-1978 japanese-jisx0208
 	  latin-jisx0201 japanese-jisx0212) nil nil nil
    short ascii-eol ascii-cntl seven)
@@ -43,7 +43,7 @@
 
 (make-coding-system
  'iso-2022-jp-2 2 ?J
- "ISO 2022 based 7bit encoding for CJK, Latin-1, and Greek (MIME:ISO-2022-JP-2)"
+ "ISO 2022 based 7bit encoding for CJK, Latin-1, and Greek (MIME:ISO-2022-JP-2)."
  '((ascii japanese-jisx0208-1978 japanese-jisx0208
 	  latin-jisx0201 japanese-jisx0212
 	  chinese-gb2312 korean-ksc5601) nil
@@ -57,7 +57,7 @@
 
 (make-coding-system
  'japanese-shift-jis 1 ?S
- "Shift-JIS 8-bit encoding for Japanese (MIME:SHIFT_JIS)"
+ "Shift-JIS 8-bit encoding for Japanese (MIME:SHIFT_JIS)."
  nil
  '((safe-charsets ascii japanese-jisx0208 japanese-jisx0208-1978
 		  latin-jisx0201 katakana-jisx0201)
@@ -70,7 +70,7 @@
 
 (make-coding-system
  'japanese-iso-7bit-1978-irv 2 ?j
- "ISO 2022 based 7-bit encoding for Japanese JISX0208-1978 and JISX0201-Roman"
+ "ISO 2022 based 7-bit encoding for Japanese JISX0208-1978 and JISX0201-Roman."
  '((ascii japanese-jisx0208-1978 japanese-jisx0208
 	  latin-jisx0201 japanese-jisx0212 katakana-jisx0201 t) nil nil nil
    short ascii-eol ascii-cntl seven nil nil use-roman use-oldjis)
@@ -81,7 +81,7 @@
 
 (make-coding-system
  'japanese-iso-8bit 2 ?E
- "ISO 2022 based EUC encoding for Japanese (MIME:EUC-JP)"
+ "ISO 2022 based EUC encoding for Japanese (MIME:EUC-JP)."
  '(ascii japanese-jisx0208 katakana-jisx0201 japanese-jisx0212
    short ascii-eol ascii-cntl nil nil single-shift)
  '((safe-charsets ascii latin-jisx0201 japanese-jisx0208 japanese-jisx0208-1978
--- a/lisp/language/korean.el	Tue Dec 18 17:48:08 2001 +0000
+++ b/lisp/language/korean.el	Tue Dec 18 17:51:50 2001 +0000
@@ -30,7 +30,7 @@
 
 (make-coding-system
  'korean-iso-8bit 2 ?K
- "ISO 2022 based EUC encoding for Korean KSC5601 (MIME:EUC-KR)"
+ "ISO 2022 based EUC encoding for Korean KSC5601 (MIME:EUC-KR)."
  '(ascii korean-ksc5601 nil nil
    nil ascii-eol ascii-cntl)
  '((safe-charsets ascii korean-ksc5601)
--- a/lisp/language/lao.el	Tue Dec 18 17:48:08 2001 +0000
+++ b/lisp/language/lao.el	Tue Dec 18 17:51:50 2001 +0000
@@ -29,7 +29,7 @@
 
 (make-coding-system
  'lao 2 ?L
- "8-bit encoding for ASCII (MSB=0) and LAO (MSB=1)"
+ "8-bit encoding for ASCII (MSB=0) and LAO (MSB=1)."
  '(ascii lao nil nil
    nil nil)
  '((safe-charsets ascii lao)
--- a/lisp/language/slovak.el	Tue Dec 18 17:48:08 2001 +0000
+++ b/lisp/language/slovak.el	Tue Dec 18 17:51:50 2001 +0000
@@ -43,7 +43,7 @@
 	    (documentation . "\
 This language environment is almost the same as Latin-2,
 but default input method is set to \"slovak\",
-and select's the Slovak tutorial."))
+and the Slovak tutorial is selected."))
  '("European"))
 
 (provide 'slovak)
--- a/lisp/language/thai.el	Tue Dec 18 17:48:08 2001 +0000
+++ b/lisp/language/thai.el	Tue Dec 18 17:51:50 2001 +0000
@@ -30,7 +30,7 @@
 
 (make-coding-system
  'thai-tis620 2 ?T
- "8-bit encoding for ASCII (MSB=0) and Thai TIS620 (MSB=1)"
+ "8-bit encoding for ASCII (MSB=0) and Thai TIS620 (MSB=1)."
  '(ascii thai-tis620 nil nil
    nil ascii-eol)
  '((safe-charsets ascii thai-tis620)
--- a/lisp/language/tibetan.el	Tue Dec 18 17:48:08 2001 +0000
+++ b/lisp/language/tibetan.el	Tue Dec 18 17:51:50 2001 +0000
@@ -84,7 +84,7 @@
 
 (make-coding-system
  'tibetan-iso-8bit 2 ?Q
- "8-bit encoding for ASCII (MSB=0) and TIBETAN (MSB=1)"
+ "8-bit encoding for ASCII (MSB=0) and TIBETAN (MSB=1)."
  '(ascii tibetan nil nil
    nil nil)
  '((safe-charsets ascii tibetan)
--- a/lisp/language/vietnamese.el	Tue Dec 18 17:48:08 2001 +0000
+++ b/lisp/language/vietnamese.el	Tue Dec 18 17:51:50 2001 +0000
@@ -133,7 +133,7 @@
 
 (make-coding-system
  'vietnamese-viscii 4 ?V
- "8-bit encoding for Vietnamese VISCII 1.1 (MIME:VISCII)"
+ "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)
@@ -143,7 +143,7 @@
 
 (make-coding-system
  'vietnamese-vscii 4 ?v
- "8-bit encoding for Vietnamese VSCII-1"
+ "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))))
@@ -152,7 +152,7 @@
 
 (make-coding-system
  'vietnamese-viqr 0 ?q
- "Vietnamese latin transcription (VIQR)"
+ "Encoding for Vietnamese latin transcription (VIQR)."
  nil
  '((safe-charsets ascii vietnamese-viscii-lower vietnamese-viscii-upper)
    (post-read-conversion . viqr-post-read-conversion)
@@ -183,8 +183,8 @@
 		(features viet-util)
 		(sample-text . "Vietnamese (Ti,1*(Bng Vi,1.(Bt)	Ch,1`(Bo b,1U(Bn")
 		(documentation . "\
-For Vietnamese, Emacs uses special charasets internally.
-They can be decoded from and encoded to VISCC, VSCII, and VIQR.
+For Vietnamese, Emacs uses special character sets internally.
+They can be decoded from and encoded to VISCII, VSCII, and VIQR.
 Current setting put higher priority to the coding system VISCII than VSCII.
 If you prefer VSCII, please do: (prefer-coding-system 'vietnamese-vscii)")
 		))