Mercurial > hg > xemacs-beta

comparison lisp/language/cyrillic.el @ 165:5a88923fcbfe r20-3b9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b9
author cvs
date Mon, 13 Aug 2007 09:44:42 +0200
parents 3bb7ccffb0c0
children acd284d43ca1
comparison
equal deleted inserted replaced
164:4e0740e5aab2 165:5a88923fcbfe
117 ;; ?K "Coding-system used for KOI8." 117 ;; ?K "Coding-system used for KOI8."
118 ;; (cons ccl-decode-koi8 ccl-encode-koi8)) 118 ;; (cons ccl-decode-koi8 ccl-encode-koi8))
119 119
120 (make-coding-system 120 (make-coding-system
121 'koi8-r 'ccl 121 'koi8-r 'ccl
122 "Coding-system used for KOI8." 122 "Coding-system used for KOI8-R."
123 `(decode ,ccl-decode-koi8 123 `(decode ,ccl-decode-koi8
124 encode ,ccl-encode-koi8 124 encode ,ccl-encode-koi8
125 mnemonic "KOI8")) 125 mnemonic "KOI8"))
126 126
127 ;;(define-coding-system-alias 'koi8-r 'koi8) 127 ;;(define-coding-system-alias 'koi8-r 'koi8)
252 252
253 (set-language-info-alist 253 (set-language-info-alist
254 "Cyrillic" '((setup-function . setup-cyrillic-environment) 254 "Cyrillic" '((setup-function . setup-cyrillic-environment)
255 (describe-function . describe-cyrillic-support) 255 (describe-function . describe-cyrillic-support)
256 (charset . (cyrillic-iso8859-5)) 256 (charset . (cyrillic-iso8859-5))
257 (coding-system . (iso-8859-5 koi8 alternativnyj)) 257 (coding-system . (iso-8859-5 koi8-r alternativnyj))
258 (sample-text . "Russian (,L@caaZXY(B) ,L7T`PRabRcYbU(B!") 258 (sample-text . "Russian (,L@caaZXY(B) ,L7T`PRabRcYbU(B!")
259 (documentation . nil))) 259 (documentation . nil)))
260 260
261 ;;; cyrillic.el ends here 261 ;;; cyrillic.el ends here