Mercurial > emacs

changeset 17841:084d922fcd78

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Coding system names changed as follows: internal -> emacs-mule, automatic-conversion -> undecided. Coding category name changes as follows: coding-category-internal -> coding-category-emacs-mule. Delete functions describe-LANGUAGE-support. Delete describe-function entries and change documentation entries in each language specific information.
author Kenichi Handa <handa@m17n.org>
date Fri, 16 May 1997 00:59:09 +0000
parents 2517414676ed
children cb1af8ead3df
files lisp/language/chinese.el lisp/language/cyrillic.el lisp/language/devanagari.el lisp/language/english.el lisp/language/ethiopic.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/thai.el lisp/language/vietnamese.el
diffstat 14 files changed, 30 insertions(+), 128 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/language/chinese.el	Fri May 16 00:59:07 1997 +0000
+++ b/lisp/language/chinese.el	Fri May 16 00:59:09 1997 +0000
@@ -46,21 +46,13 @@
 
 (define-coding-system-alias 'iso-2022-cn 'iso-2022-cn-ext)
 
-(defun describe-chinese-support ()
-  "Describe how Emacs supports Chinese."
-  (interactive)
-  (with-output-to-temp-buffer "*Help*"
-    (princ (get-language-info "Chinese" 'documentation))
-    (princ "\n")))
-	   
 (set-language-info-alist
- "Chinese" '((describe-function . describe-chinese-support)
-	     (documentation . "\
+ "Chinese" '((documentation . "\
 Emacs provides the following three kinds of Chinese support:
   Chinese-GB: for users of the charset GB2312
   Chinese-BIG5: for users of the charset Big5
   Chinese-CNS: for users of the charset CNS11643 family
-Please specify one of them to get more information.")
+Please specify/select one of them to get more information.")
 	     ))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -131,7 +123,7 @@
      coding-category-iso-8-2
      coding-category-big5
      coding-category-iso-8-1
-     coding-category-internal
+     coding-category-emacs-mule
      ))
 
   (setq-default buffer-file-coding-system 'cn-gb-2312)
@@ -141,18 +133,12 @@
   (setq default-input-method '("Chinese-GB" . "quail-py"))
   )
 
-(defun describe-chinese-gb-support ()
-  "Describe how Emacs supports Chinese for GB2312 users."
-  (interactive)
-  (describe-language-support-internal "Chinese-GB"))
-
 (set-language-info-alist
  "Chinese-GB" '((setup-function . setup-chinese-gb-environment)
-		(describe-function . describe-chinese-gb-support)
 		(charset . (chinese-gb2312 chinese-sisheng))
 		(coding-system . (cn-gb-2312 hz-gb-2312 iso-2022-cn))
 		(sample-text . "Chinese ($AVPND(B,$AFUM(;0(B,$A::So(B)	$ADc:C(B")
-		(documentation . nil)))
+		(documentation . t)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Chinese BIG5 (traditional)
@@ -225,18 +211,12 @@
   (setq default-input-method '("Chinese-BIG5" . "quail-py-b5"))
   )
 
-(defun describe-chinese-big5-support ()
-  "Describe how Emacs supports Chinese for Big5 users."
-  (interactive)
-  (describe-language-support-internal "Chinese-BIG5"))
-
 (set-language-info-alist
  "Chinese-BIG5" '((setup-function . setup-chinese-big5-environment)
-		  (describe-function . describe-chinese-big5-support)
 		  (charset . (chinese-big5-1 chinese-big5-2))
 		  (coding-system . (cn-big5 iso-2022-cn))
 		  (sample-text . "Cantonese ($(0GnM$(B,$(0N]0*Hd(B)	$(0*/=((B, $(0+$)p(B")
-		  (documentation . nil)))
+		  (documentation . t)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Chinese CNS11643 (traditional)
@@ -269,19 +249,13 @@
   (setq default-input-method '("Chinese-CNS" . "quail-quick-cns"))
   )
 
-(defun describe-chinese-cns-support ()
-  "Describe how Emacs supports Chinese for CNS11643 family users."
-  (interactive)
-  (describe-language-support-internal "Chinese-CNS"))
-
 (set-language-info-alist
  "Chinese-CNS" '((setup-function . setup-chinese-cns-environment)
-		 (describe-function . describe-chinese-cns-support)
 		 (charset . (chinese-cns11643-1 chinese-cns11643-2
 			     chinese-cns11643-3 chinese-cns11643-4
 			     chinese-cns11643-5 chinese-cns11643-6
 			     chinese-cns11643-7))
 		 (coding-system . (iso-2022-cn))
-		 (documentation . nil)))
+		 (documentation . t)))
 
 ;;; chinese.el ends here
--- a/lisp/language/cyrillic.el	Fri May 16 00:59:07 1997 +0000
+++ b/lisp/language/cyrillic.el	Fri May 16 00:59:09 1997 +0000
@@ -204,17 +204,11 @@
   (setq default-input-method '("Cyrillic" . "quail-yawerty"))
   )
 
-(defun describe-cyrillic-support ()
-  "Describe how Emacs support Cyrillic."
-  (interactive)
-  (describe-language-support-internal "Cyrillic"))
-
 (set-language-info-alist
  "Cyrillic" '((setup-function . setup-cyrillic-environment)
-	      (describe-function . describe-cyrillic-support)
 	      (charset . (cyrillic-iso8859-5))
 	      (coding-system . (iso-8859-5 koi8 alternativnyj))
 	      (sample-text . "Russian (,L@caaZXY(B)	,L7T`PRabRcYbU(B!")
-	      (documentation . nil)))
+	      (documentation . t)))
 
 ;;; cyrillic.el ends here
--- a/lisp/language/devanagari.el	Fri May 16 00:59:07 1997 +0000
+++ b/lisp/language/devanagari.el	Fri May 16 00:59:09 1997 +0000
@@ -71,17 +71,11 @@
   (setq default-input-method '("Devanagari" . "quail-devanagari-itrans"))
   )
 
-(defun describe-devanagari-support ()
-  "Describe how Emacs support languages using Devanagari script."
-  (interactive)
-  (describe-language-support-internal "Devanagari"))
-
 (set-language-info-alist
  "Devanagari" '((setup-function . setup-devanagari-environment)
-		(describe-function . describe-devanagari-support)
 		(charset . (indian-is13194 indian-2-column indian-1-column))
 		(coding-system . (in-is13194-devanagari))
-		(documentation . nil)))
+		(documentation . t)))
 
 ;;
 ;; Devanagari Glyph List
--- a/lisp/language/english.el	Fri May 16 00:59:07 1997 +0000
+++ b/lisp/language/english.el	Fri May 16 00:59:09 1997 +0000
@@ -48,7 +48,7 @@
 	coding-category-iso-8-2		iso-8859-1
 	coding-category-iso-8-1		iso-8859-1
 	coding-category-iso-else	iso-8859-1
-	coding-category-internal 	internal
+	coding-category-emacs-mule 	emacs-mule
 	coding-category-binary		no-conversion
 	coding-category-sjis		sjis
 	coding-category-big5		big5
@@ -58,7 +58,7 @@
   (if (local-variable-p 'enable-multibyte-characters)
       (setq enable-multibyte-characters t))
 
-  (setq coding-category-internal	'internal
+  (setq coding-category-emacs-mule	'emacs-mule
 	coding-category-iso-7		'iso-2022-7
 	coding-category-iso-8-1		'iso-8859-1
 	coding-category-iso-8-2		'iso-8859-1
@@ -72,7 +72,7 @@
      coding-category-iso-8-2
      coding-category-iso-8-1
      coding-category-iso-else
-     coding-category-internal 
+     coding-category-emacs-mule 
      coding-category-binary
      coding-category-sjis
      coding-category-big5))
@@ -85,20 +85,14 @@
 	rmail-file-coding-system nil)
   )
 
-(defun describe-english-support ()
-  "Describe how Emacs support English."
-  (interactive)
-  (describe-language-support-internal "English"))
-
 (set-language-info-alist
  "English" '((setup-function . setup-english-environment)
-	     (describe-function . describe-english-support)
 	     (tutorial . "TUTORIAL")
 	     (charset . (ascii))
 	     (sample-text . "Hello!, Hi!, How are you?")
-	     (documentation . "\
+	     (documentation . ("\
 There's nothing special you should care to handle English in Emacs.
-You can use English both with enable-multibyte-characters t and nil.")
+You can use English both with enable-multibyte-characters t and nil."))
 	     ))
 
 (register-input-method "English"
--- a/lisp/language/ethiopic.el	Fri May 16 00:59:07 1997 +0000
+++ b/lisp/language/ethiopic.el	Fri May 16 00:59:09 1997 +0000
@@ -85,16 +85,10 @@
       (define-key mail-mode-map [C-f5] 'fidel-to-sera-mail)))
   )
 
-(defun describe-ethiopic-support ()
-  "Describe how Emacs supports Ethiopic."
-  (interactive)
-  (describe-language-support-internal "Ethiopic"))
-
 (set-language-info-alist
  "Ethiopic" '((setup-function . setup-ethiopic-environment)
-	      (describe-function . describe-ethiopic-support)
 	      (charset . (ethiopic))
 	      (sample-text . "$(3$O#U!.(B")
-	      (documentation . nil)))
+	      (documentation . t)))
 
 ;;; ethiopic.el ends here
--- a/lisp/language/european.el	Fri May 16 00:59:07 1997 +0000
+++ b/lisp/language/european.el	Fri May 16 00:59:09 1997 +0000
@@ -76,25 +76,19 @@
   (setup-english-environment)
   (setq default-input-method '("European" . "quail-latin-1")))
 
-(defun describe-european-support ()
-  "Describe how Emacs support European languages."
-  (interactive)
-  (describe-language-support-internal "European"))
-
 (set-language-info-alist
  "European" '((setup-function . setup-european-environment)
-	      (describe-function . describe-european-support)
 	      (charset . (ascii latin-iso8859-1 latin-iso8859-2
 			  latin-iso8859-3 latin-iso8859-4 latin-iso8859-9))
 	      (coding-system . (iso-8859-1 iso-8859-2 iso-8859-3
 				iso-8859-4 iso-8859-9))
 	      (sample-text
 	       . "Hello, Hej, Tere, Hei, Bonjour, Gr,A|_(B Gott, Ciao, ,A!(BHola!")
-	      (documentation . "\
+	      (documentation . ("\
 Almost all of European languages are supported by the character sets and
 coding systems listed below.
 To input them, LEIM (Libraries for Emacs Input Methods) should have been
-installed.")
+installed."))
 	      ))
 
 (let ((languages '("French" "German" "Spanish" "Italian"
--- a/lisp/language/greek.el	Fri May 16 00:59:07 1997 +0000
+++ b/lisp/language/greek.el	Fri May 16 00:59:09 1997 +0000
@@ -52,17 +52,11 @@
   (setq default-input-method '("Greek" . "quail-greek"))
   )
 
-(defun describe-greek-support ()
-  "Describe how Emacs supports Greek."
-  (interactive)
-  (describe-language-support-internal "Greek"))
-
 (set-language-info-alist
  "Greek" '((setup-function . setup-greek-environment)
-	   (describe-function. describe-greek-support)
 	   (charset . (greek-iso8859-7))
 	   (coding-system . (iso-8859-7))
 	   (sample-text . "Greek (,FGkk]mija(B)	,FCei\(B ,Fsar(B")
-	   (documentation . nil)))
+	   (documentation . t)))
 
 ;;; greek.el ends here
--- a/lisp/language/hebrew.el	Fri May 16 00:59:07 1997 +0000
+++ b/lisp/language/hebrew.el	Fri May 16 00:59:09 1997 +0000
@@ -54,17 +54,13 @@
   (setq default-input-method '("Hebrew" . "quail-hebrew"))
   )
 
-(defun describe-hebrew-support ()
-  "Describe how Emacs supports Hebrew."
-  (interactive)
-  (describe-language-support-internal "Hebrew"))
-
 (set-language-info-alist
  "Hebrew" '((setup-function . setup-hebrew-environment)
 	    (describe-function . describe-hebrew-support)
 	    (charset . (hebrew-iso8859-8))
 	    (coding-system . (iso-8859-8))
 	    (sample-text . "Hebrew	,Hylem(B")
-	    (documentation . "Right-to-left writing is not yet supported.")))
+	    (documentation . ("Right-to-left writing is not yet supported."))
+	    ))
 
 ;;; hebew.el ends here
--- a/lisp/language/indian.el	Fri May 16 00:59:07 1997 +0000
+++ b/lisp/language/indian.el	Fri May 16 00:59:09 1997 +0000
@@ -51,18 +51,13 @@
 
 ;;; Code:
 
-(defun describe-indian-support ()
-  "Describe how Emacs support Indian languages."
-  (interactive)
-  (describe-language-support-internal "Indian"))
-
 (set-language-info-alist
  "Indian" '((describe-function . describe-indian-support)
 	    (charset . (indian-is13194))
-	    (documentation . "\
+	    (documentation . ("\
 Among Indian languages, such languages using Devanagari scripts as
 Hindi and Marathi are supproted.  For them, please specify Devanagari
-for more detail.")
+for more detail."))
 	    ))
 
 ;;  Followings are what you see when you refer to the Emacs
--- a/lisp/language/japanese.el	Fri May 16 00:59:07 1997 +0000
+++ b/lisp/language/japanese.el	Fri May 16 00:59:09 1997 +0000
@@ -70,7 +70,7 @@
      coding-category-sjis
      coding-category-iso-8-1
      coding-category-iso-else
-     coding-category-internal))
+     coding-category-emacs-mule))
 
   (if (eq system-type 'ms-dos)
       (progn
@@ -88,14 +88,8 @@
 	rmail-file-coding-system 'iso-2022-jp)
   )
 
-(defun describe-japanese-support ()
-  "Describe how Emacs supports Japanese."
-  (interactive)
-  (describe-language-support-internal "Japanese"))
-
 (set-language-info-alist
  "Japanese" '((setup-function . setup-japanese-environment)
-	      (describe-function . describe-japanese-support)
 	      (tutorial . "TUTORIAL.jp")
 	      (charset . (japanese-jisx0208 japanese-jisx0208-1978
 			  japanese-jisx0212 latin-jisx0201
@@ -103,6 +97,6 @@
 	      (coding-system . (euc-japan-1990 sjis
 				iso-2022-jp iso-2022-jp-1978-irv))
 	      (sample-text . "Japanese ($BF|K\8l(B)		$B$3$s$K$A$O(B, (I:]FAJ(B")
-	      (documentation . nil)))
+	      (documentation . t)))
 
 ;;; japanese.el ends here
--- a/lisp/language/korean.el	Fri May 16 00:59:07 1997 +0000
+++ b/lisp/language/korean.el	Fri May 16 00:59:09 1997 +0000
@@ -70,18 +70,12 @@
   (setq default-input-method '("Korean" . "quail-hangul"))
   )
 
-(defun describe-korean-support ()
-  "Describe How Emacs supports Korean."
-  (interactive)
-  (describe-language-support-internal "Korean"))
-
 (set-language-info-alist
  "Korean" '((setup-function . setup-korean-environment)
-	    (describe-function . describe-korean-support)
 	    (tutorial . "TUTORIAL.kr")
 	    (charset . (korean-ksc5601))
 	    (coding-system . (euc-kr iso-2022-kr))
 	    (sample-text . "Hangul ($(CGQ1[(B)	$(C>H3gGO<<?d(B, $(C>H3gGO=J4O1n(B")
-	    (documentation . nil)))
+	    (documentation . t)))
 
 ;;; korean.el ends here
--- a/lisp/language/lao.el	Fri May 16 00:59:07 1997 +0000
+++ b/lisp/language/lao.el	Fri May 16 00:59:09 1997 +0000
@@ -50,18 +50,12 @@
 
   (setq default-input-method '("Lao" . "quail-lao")))
 
-(defun describe-lao-support ()
-  "Describe how Emacs supports Lao."
-  (interactive)
-  (describe-language-support-internal "Lao"))
-
 (set-language-info-alist
  "Lao" '((setup-function . setup-lao-environment)
-	 (describe-function . describe-lao-support)
 	 (charset . (lao))
 	 (coding-system . (lao))
 	 (sample-text . "Lao((1>RJRERG(B)            (1JP:R-04U1(B, 0(1"i1M-`0;Q190$[19ERG(B")
-	 (documentation . nil)))
+	 (documentation . t)))
 
 (aset use-default-ascent ?(1;(B t)
 (aset use-default-ascent ?(1=(B t)
--- a/lisp/language/thai.el	Fri May 16 00:59:07 1997 +0000
+++ b/lisp/language/thai.el	Fri May 16 00:59:09 1997 +0000
@@ -56,18 +56,12 @@
   (setq default-input-method '("Thai" . "quail-thai"))
   )
 
-(defun describe-thai-support ()
-  "Describe how Emacs supports Thai."
-  (interactive)
-  (describe-language-support-internal "Thai"))
-
 (set-language-info-alist
  "Thai" '((tutorial . "TUTORIAL.th")
 	  (setup-function . setup-thai-environment)
-	  (describe-function . describe-thai-support)
 	  (charset . (thai-tis620))
 	  (coding-system . (th-tis620))
 	  (sample-text . "Thai (,T@RIRd7B(B)		,TJ0GQ1J04U1$0CQ1:(B, ,TJ0GQ1J04U10$h1P(B")
-	  (documentation . nil)))
+	  (documentation . t)))
 
 ;;; thai.el ends here
--- a/lisp/language/vietnamese.el	Fri May 16 00:59:07 1997 +0000
+++ b/lisp/language/vietnamese.el	Fri May 16 00:59:09 1997 +0000
@@ -244,18 +244,15 @@
   (setq default-input-method '("Vietnamese" . "quail-viqr"))
   )
 
-(defun describe-vietnamese-support ()
-  "Describe how Emacs supports Vietnamese."
-  (interactive)
-  (describe-language-support-internal "Vietnamese"))
-
 (set-language-info-alist
  "Vietnamese" '((setup-function . setup-vietnamese-environment)
-		(describe-function . describe-vietnamese-support)
 		(charset . (vietnamese-viscii-lower
 			    vietnamese-viscii-upper))
 		(coding-system . (viscii vscii viqr))
 		(sample-text . "Vietnamese (Ti,1*(Bng Vi,1.(Bt)	Ch,1`(Bo b,1U(Bn")
-		(documentation . nil)))
+		(documentation . '("\
+For Vietnamese, Emacs uses special charasets internally.
+They can be decoded from and encoded to VISCC, VSCII, and VIQR."))
+		))
 
 ;;; vietnamese.el ends here