Mercurial > emacs

diff lisp/language/lao.el @ 17772:550afdbb31d8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Make functions setup-LANGUAGE-environment interactive and add new functions describe-LANGUAGE-support for all LANGUAGEs supported. Remove resisterations of input methods which use the function encoded-kbd-select-terminal.
author Kenichi Handa <handa@m17n.org>
date Mon, 12 May 1997 07:00:16 +0000
parents 9e6a3e03ed4c
children 084d922fcd78
line wrap: on
line diff
--- a/lisp/language/lao.el	Mon May 12 07:00:15 1997 +0000
+++ b/lisp/language/lao.el	Mon May 12 07:00:16 1997 +0000
@@ -37,6 +37,9 @@
  "Lao" '("quail-lrt" quail-use-package "quail/lrt"))
 
 (defun setup-lao-environment ()
+  "Setup multilingual environment (MULE) for Lao."
+  (interactive)
+  (setup-english-environment)
   (setq coding-category-iso-8-1 'lao)
 
   (set-coding-priority
@@ -47,12 +50,18 @@
 
   (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))
-	 (documentation . t)
-	 (sample-text . "Lao((1>RJRERG(B)            (1JP:R-04U1(B, 0(1"i1M-`0;Q190$[19ERG(B")))
+	 (sample-text . "Lao((1>RJRERG(B)            (1JP:R-04U1(B, 0(1"i1M-`0;Q190$[19ERG(B")
+	 (documentation . nil)))
 
 (aset use-default-ascent ?(1;(B t)
 (aset use-default-ascent ?(1=(B t)