Mercurial > hg > xemacs-beta

comparison lisp/language/cyrillic.el @ 209:41ff10fd062f r20-4b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b3
author cvs
date Mon, 13 Aug 2007 10:04:58 +0200
parents acd284d43ca1
children 78f53ef88e17
comparison
equal deleted inserted replaced
208:f427b8ec4379 209:41ff10fd062f
144 ;; (cons ccl-decode-koi8 ccl-encode-koi8)) 144 ;; (cons ccl-decode-koi8 ccl-encode-koi8))
145 145
146 ;; (define-coding-system-alias 'koi8-r 'cyrillic-koi8) 146 ;; (define-coding-system-alias 'koi8-r 'cyrillic-koi8)
147 ;; (define-coding-system-alias 'koi8 'cyrillic-koi8) 147 ;; (define-coding-system-alias 'koi8 'cyrillic-koi8)
148 148
149 (make-coding-system 149 ;; (make-coding-system
150 'koi8-r 'ccl 150 ;; 'koi8-r 'ccl
151 "Coding-system used for KOI8-R." 151 ;; "Coding-system used for KOI8-R."
152 `(decode ,ccl-decode-koi8 152 ;; `(decode ,ccl-decode-koi8
153 encode ,ccl-encode-koi8 153 ;; encode ,ccl-encode-koi8
154 mnemonic "KOI8")) 154 ;; mnemonic "KOI8"))
155 155
156 ;;(define-coding-system-alias 'koi8-r 'koi8) 156 ;;(define-coding-system-alias 'koi8-r 'koi8)
157 157
158 (define-ccl-program ccl-encode-koi8-font 158 (define-ccl-program ccl-encode-koi8-font
159 '(((r1 -= 160) 159 '(((r1 -= 160)