("LANUGAGE-ENVIRONMENT"): Delete property setup-function or change

[bpt/emacs.git] / lisp / language / tibetan.el

diff --git a/lisp/language/tibetan.el b/lisp/language/tibetan.el
index 5aded38..4041296 100644 (file)
--- a/lisp/language/tibetan.el
+++ b/lisp/language/tibetan.el
@@ -100,13 +100,14 @@
 (define-coding-system-alias 'tibetan 'tibetan-iso-8bit)
 
 (set-language-info-alist
- "Tibetan" '((setup-function . setup-tibetan-environment)
-            (charset tibetan tibetan-1-column)
+ "Tibetan" '((charset tibetan tibetan-1-column)
             (coding-system tibetan-iso-8bit)
             (coding-priority iso-2022-7bit tibetan-iso-8bit)
+            (input-method . "tibetan-wylie")
+            (features tibet-util)
             (documentation . t)
             (sample-text .
-"Tibetan (\e2\e$(7"70"]\e1"2\e$(8!;\e2\e$(7%P`"Q\e1"2\e$(8!;\e(B) \e2\e$(7#RP#SP#S\e1!>"7\e2$P`"Q\e1\e$(8!;\e2\e$(7"E0"S\e1"G\e$(8!;\e$(7"7\e2"20"[\e1\e$(8!;\e2\e$(7"D0"[\e1"#"G!>\e2"I0"]0"_\e1\e$(8!;\e2\e$(7"9`"Q\e1\e$(8!;\e2\e$(7"/0"S\e1\e$(8!;\e2\e$(7"5`"Q\e1\e2#2`#90"[\e1\e$(8!;\e2\e$(7"H`#A`"U0"c\e1!>\e(B")))
+"Tibetan (\e2\e$(7"70"]\e(B\e1\e$(7"2\e$(8!;\e(B\e2\e$(7%P`"Q\e(B\e1\e$(7"2\e$(8!;\e(B) \e2\e$(7#RP#SP#S\e(B\e1\e$(7!>"7\e(B\e2\e$(7$P`"Q\e(B\e1\e$(8!;\e(B\e2\e$(7"E0"S\e(B\e1\e$(7"G\e$(8!;\e$(7"7\e(B\e2\e$(7"20"[\e(B\e1\e$(8!;\e(B\e2\e$(7"D0"[\e(B\e1\e$(7"#"G!>\e(B\e2\e$(7"I0"]0"_\e(B\e1\e$(8!;\e(B\e2\e$(7"9`"Q\e(B\e1\e$(8!;\e(B\e2\e$(7"/0"S\e(B\e1\e$(8!;\e(B\e2\e$(7"5`"Q\e(B\e1\e2\e$(7#2`#90"[\e(B\e1\e$(8!;\e(B\e2\e$(7"H`#A`"U0"c\e(B\e1\e$(7!>\e(B")))
 
 
 ;;;
@@ -497,11 +498,11 @@
     ("\e$(7"`\e(B" . "\e$(8"`\e(B")
     ("\e$(7!;\e(B" . "\e$(8!;\e(B")
     ("\e$(7!D\e(B" . "\e$(8!D\e(B")
-    ("\e$(7!>\e(B \e$(7!>\e(B" . "\e2\e$(7!>P\e(B P\e$(7!>\e1\e(B")                      ; Yes this is dirty. But ...
-    ("\e$(7!4!5!5\e(B" . "\e2\e$(7#RP#SP#SP#S\e1\e(B")
-    ("\e$(7!4!5\e(B" . "\e2\e$(7#RP#SP#S\e1\e(B")
-    ("\e$(7!6\e(B" . "\e2\e$(7#RP#S_!I\e1\e(B")
-    ("\e$(7!4\e(B"   . "\e2\e$(7#RP#S\e1\e(B")))
+    ("\e$(7!>\e(B \e$(7!>\e(B" . "\e2\e$(7!>P\e(B P\e$(7!>\e(B\e1")                      ; Yes this is dirty. But ...
+    ("\e$(7!4!5!5\e(B" . "\e2\e$(7#RP#SP#SP#S\e(B\e1")
+    ("\e$(7!4!5\e(B" . "\e2\e$(7#RP#SP#S\e(B\e1")
+    ("\e$(7!6\e(B" . "\e2\e$(7#RP#S_!I\e(B\e1")
+    ("\e$(7!4\e(B"   . "\e2\e$(7#RP#S\e(B\e1")))
 
 (defvar tibetan-regexp
   (let ((l (append tibetan-consonant-transcription-alist