Mercurial > emacs

comparison lisp/language/cyrillic.el @ 22983:7a010b8c0d99

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
("LANUGAGE-ENVIRONMENT"): Delete property setup-function or change the value to setup-XXX-environment-internal. Add properties nonascii-translation, input-method, features, unibyte-syntax, and unibyte-display.
author Kenichi Handa <handa@m17n.org>
date Mon, 10 Aug 1998 06:29:02 +0000
parents e0e17bbd8e6c
children 7a5031625079
comparison
equal deleted inserted replaced
22982:5fef9d1a7fc2 22983:7a010b8c0d99
42 (mime-charset . iso-8859-5))) 42 (mime-charset . iso-8859-5)))
43 43
44 (define-coding-system-alias 'iso-8859-5 'cyrillic-iso-8bit) 44 (define-coding-system-alias 'iso-8859-5 'cyrillic-iso-8bit)
45 45
46 (set-language-info-alist 46 (set-language-info-alist
47 "Cyrillic-ISO" '((setup-function . setup-cyrillic-iso-environment) 47 "Cyrillic-ISO" '((charset cyrillic-iso8859-5)
48 (charset cyrillic-iso8859-5)
49 (coding-system cyrillic-iso-8bit) 48 (coding-system cyrillic-iso-8bit)
50 (coding-priority cyrillic-iso-8bit) 49 (coding-priority cyrillic-iso-8bit)
50 (input-method . "cyrillic-yawerty")
51 (nonascii-translation . cyrillic-iso8859-5)
52 (unibyte-display . cyrillic-iso-8bit)
53 (features cyril-util)
51 (sample-text . "Russian (,L@caaZXY(B) ,L7T`PRabRcYbU(B!") 54 (sample-text . "Russian (,L@caaZXY(B) ,L7T`PRabRcYbU(B!")
52 (documentation . "Support for Cyrillic ISO-8859-5.")) 55 (documentation . "Support for Cyrillic ISO-8859-5."))
53 '("Cyrillic")) 56 '("Cyrillic"))
54 57
55 ;; KOI-8 staff 58 ;; KOI-8 staff
136 (defvar cyrillic-koi8-r-nonascii-translation-table 139 (defvar cyrillic-koi8-r-nonascii-translation-table
137 (make-translation-table-from-vector cyrillic-koi8-r-decode-table) 140 (make-translation-table-from-vector cyrillic-koi8-r-decode-table)
138 "Value of `nonascii-translation-table' in Cyrillic-KOI8 language environment..") 141 "Value of `nonascii-translation-table' in Cyrillic-KOI8 language environment..")
139 142
140 (set-language-info-alist 143 (set-language-info-alist
141 "Cyrillic-KOI8" `((setup-function . setup-cyrillic-koi8-environment) 144 "Cyrillic-KOI8" `((charset cyrillic-iso8859-5)
142 (charset cyrillic-iso8859-5) 145 (nonascii-translation
143 (nonascii-translation-table
144 . ,cyrillic-koi8-r-nonascii-translation-table) 146 . ,cyrillic-koi8-r-nonascii-translation-table)
145 (charset-origin-alist 147 (charset-origin-alist
146 (cyrillic-iso8859-5 "KOI8-R" cyrillic-encode-koi8-r-char)) 148 (cyrillic-iso8859-5 "KOI8-R" cyrillic-encode-koi8-r-char))
147 (coding-system cyrillic-koi8) 149 (coding-system cyrillic-koi8)
148 (coding-priority cyrillic-koi8) 150 (coding-priority cyrillic-koi8)
151 (input-method . "cyrillic-yawerty")
152 (features cyril-util)
153 (unibyte-display . cyrillic-koi8)
149 (sample-text . "Russian (,L@caaZXY(B) ,L7T`PRabRcYbU(B!") 154 (sample-text . "Russian (,L@caaZXY(B) ,L7T`PRabRcYbU(B!")
150 (documentation . "Support for Cyrillic KOI8-R.")) 155 (documentation . "Support for Cyrillic KOI8-R."))
151 '("Cyrillic")) 156 '("Cyrillic"))
152 157
153 ;;; ALTERNATIVNYJ staff 158 ;;; ALTERNATIVNYJ staff
230 (defvar cyrillic-alternativnyj-nonascii-translation-table 235 (defvar cyrillic-alternativnyj-nonascii-translation-table
231 (make-translation-table-from-vector cyrillic-alternativnyj-decode-table) 236 (make-translation-table-from-vector cyrillic-alternativnyj-decode-table)
232 "Value of `nonascii-translation-table' in Cyrillic-ALT language environment.") 237 "Value of `nonascii-translation-table' in Cyrillic-ALT language environment.")
233 238
234 (set-language-info-alist 239 (set-language-info-alist
235 "Cyrillic-ALT" '((setup-function . setup-cyrillic-alternativnyj-environment) 240 "Cyrillic-ALT" `((charset cyrillic-iso8859-5)
236 (charset cyrillic-iso8859-5) 241 (nonascii-translation
237 (nonascii-translation-table 242 . ,cyrillic-alternativnyj-nonascii-translation-table)
238 . cyrillic-alternativnyj-nonascii-translation-table)
239 (charset-origin-alist 243 (charset-origin-alist
240 (cyrillic-iso8859-5 "ALTERNATIVNYJ" 244 (cyrillic-iso8859-5 "ALTERNATIVNYJ"
241 cyrillic-encode-koi8-char)) 245 cyrillic-encode-koi8-r-char))
242 (coding-system cyrillic-alternativnyj) 246 (coding-system cyrillic-alternativnyj)
243 (coding-priority cyrillic-alternativnyj) 247 (coding-priority cyrillic-alternativnyj)
248 (input-method . "cyrillic-yawerty")
249 (features cyril-util)
250 (unibyte-display . cyrillic-alternativnyj)
244 (sample-text . "Russian (,L@caaZXY(B) ,L7T`PRabRcYbU(B!") 251 (sample-text . "Russian (,L@caaZXY(B) ,L7T`PRabRcYbU(B!")
245 (documentation . "Support for Cyrillic ALTERNATIVNYJ.")) 252 (documentation . "Support for Cyrillic ALTERNATIVNYJ."))
246 '("Cyrillic")) 253 '("Cyrillic"))
247 254
248 ;;; cyrillic.el ends here 255 ;;; cyrillic.el ends here