Mercurial > emacs

comparison lisp/language/tibetan.el @ 20739:5f2c7f919bbf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Adjusted for the change of make-coding-system. Register coding-priority key in language-info-alist.
author Kenichi Handa <handa@m17n.org>
date Thu, 22 Jan 1998 01:46:28 +0000
parents dce0d588d203
children 7a010b8c0d99
comparison
equal deleted inserted replaced
20738:f510736ce3d1 20739:5f2c7f919bbf
87 ;;;2570 $(7%p(B $(7%q(B $(7%r(B $(7%s(B $(7%t(B $(7%u(B $(7%v(B $(7%w(B $(7%x(B $(7%y(B $(7%z(B $(7%{(B $(7%|(B $(7%}(B $(7%~(B // ; 87 ;;;2570 $(7%p(B $(7%q(B $(7%r(B $(7%s(B $(7%t(B $(7%u(B $(7%v(B $(7%w(B $(7%x(B $(7%y(B $(7%z(B $(7%{(B $(7%|(B $(7%}(B $(7%~(B // ;
88 ;;; 88 ;;;
89 89
90 90
91 (make-coding-system 91 (make-coding-system
92 'tibetan 2 ?Q 92 'tibetan-iso-8bit 2 ?Q
93 "8-bit encoding for ASCII (MSB=0) and TIBETAN (MSB=1)" 93 "8-bit encoding for ASCII (MSB=0) and TIBETAN (MSB=1)"
94 '((ascii t) (tibetan t) nil nil 94 '(ascii tibetan nil nil
95 nil ascii-eol) 95 nil nil)
96 '(ascii tibetan)) 96 '((safe-charsets ascii tibetan)
97 97 (post-read-conversion . tibetan-post-read-conversion)
98 (coding-system-put 'tibetan 'post-read-conversion 98 (pre-write-conversion . tibetan-pre-write-conversion)))
99 'tibetan-post-read-conversion) 99
100 (coding-system-put 'tibetan 'pre-write-conversion 100 (define-coding-system-alias 'tibetan 'tibetan-iso-8bit)
101 'tibetan-pre-write-conversion)
102 101
103 (set-language-info-alist 102 (set-language-info-alist
104 "Tibetan" '((setup-function . setup-tibetan-environment) 103 "Tibetan" '((setup-function . setup-tibetan-environment)
105 (charset . (tibetan tibetan-1-column)) 104 (charset tibetan tibetan-1-column)
106 (coding-system . (tibetan)) 105 (coding-system tibetan-iso-8bit)
106 (coding-priority iso-2022-7bit tibetan-iso-8bit)
107 (documentation . t) 107 (documentation . t)
108 (sample-text . 108 (sample-text .
109 "Tibetan (2$(7"70"]1"2$(8!;2$(7%P`"Q1"2$(8!;(B) 2$(7#RP#SP#S1!>"72$P`"Q1$(8!;2$(7"E0"S1"G$(8!;$(7"72"20"[1$(8!;2$(7"D0"[1"#"G!>2"I0"]0"_1$(8!;2$(7"9`"Q1$(8!;2$(7"/0"S1$(8!;2$(7"5`"Q12#2`#90"[1$(8!;2$(7"H`#A`"U0"c1!>(B"))) 109 "Tibetan (2$(7"70"]1"2$(8!;2$(7%P`"Q1"2$(8!;(B) 2$(7#RP#SP#S1!>"72$P`"Q1$(8!;2$(7"E0"S1"G$(8!;$(7"72"20"[1$(8!;2$(7"D0"[1"#"G!>2"I0"]0"_1$(8!;2$(7"9`"Q1$(8!;2$(7"/0"S1$(8!;2$(7"5`"Q12#2`#90"[1$(8!;2$(7"H`#A`"U0"c1!>(B")))
110 110
111 111