Adjusted for the change of make-coding-system. Register

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

diff --git a/lisp/language/tibetan.el b/lisp/language/tibetan.el
index 1b1767a..5aded38 100644 (file)
--- a/lisp/language/tibetan.el
+++ b/lisp/language/tibetan.el
@@ -89,21 +89,21 @@
 
 
 (make-coding-system
- 'tibetan 2 ?Q
+ 'tibetan-iso-8bit 2 ?Q
  "8-bit encoding for ASCII (MSB=0) and TIBETAN (MSB=1)"
- '((ascii t) (tibetan t) nil nil
-   nil ascii-eol)
- '(ascii tibetan))
+ '(ascii tibetan nil nil
+   nil nil)
+ '((safe-charsets ascii tibetan)
+   (post-read-conversion . tibetan-post-read-conversion)
+   (pre-write-conversion . tibetan-pre-write-conversion)))
 
-(coding-system-put 'tibetan 'post-read-conversion
-                  'tibetan-post-read-conversion)
-(coding-system-put 'tibetan 'pre-write-conversion
-                  'tibetan-pre-write-conversion)
+(define-coding-system-alias 'tibetan 'tibetan-iso-8bit)
 
 (set-language-info-alist
  "Tibetan" '((setup-function . setup-tibetan-environment)
-            (charset . (tibetan tibetan-1-column))
-            (coding-system . (tibetan))
+            (charset tibetan tibetan-1-column)
+            (coding-system tibetan-iso-8bit)
+            (coding-priority iso-2022-7bit tibetan-iso-8bit)
             (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")))