Mercurial > hg > xemacs-beta

comparison lisp/mule/mule-coding.el @ 185:3d6bfa290dbd r20-3b19

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b19
author cvs
date Mon, 13 Aug 2007 09:55:28 +0200
parents 5a88923fcbfe
children acd284d43ca1
comparison
equal deleted inserted replaced
184:bcd2674570bf 185:3d6bfa290dbd
185 ;;; iso-8859-1 and ctext are aliases. 185 ;;; iso-8859-1 and ctext are aliases.
186 186
187 (copy-coding-system 'ctext 'iso-8859-1) 187 (copy-coding-system 'ctext 'iso-8859-1)
188 188
189 (make-coding-system 189 (make-coding-system
190 'iso-2022-ss2-8 'iso2022 190 'iso-2022-8bit-ss2 'iso2022
191 "ISO-2022 coding system using SS2 for 96-charset in 8-bit code." 191 "ISO-2022 coding system using SS2 for 96-charset in 8-bit code."
192 '(charset-g0 ascii 192 '(charset-g0 ascii
193 charset-g1 latin-iso8859-1 193 charset-g1 latin-iso8859-1
194 charset-g2 t ;; unspecified but can be used later. 194 charset-g2 t ;; unspecified but can be used later.
195 short t 195 short t
196 mnemonic "ISO8/SS" 196 mnemonic "ISO8/SS"
197 )) 197 ))
198 198
199 (make-coding-system 199 (make-coding-system
200 'iso-2022-ss2-7 'iso2022 200 'iso-2022-7bit-ss2 'iso2022
201 "ISO-2022 coding system using SS2 for 96-charset in 7-bit code." 201 "ISO-2022 coding system using SS2 for 96-charset in 7-bit code."
202 '(charset-g0 ascii 202 '(charset-g0 ascii
203 charset-g2 t ;; unspecified but can be used later. 203 charset-g2 t ;; unspecified but can be used later.
204 seven t 204 seven t
205 short t 205 short t
206 mnemonic "ISO7/SS" 206 mnemonic "ISO7/SS"
207 )) 207 ))
208
209 (copy-coding-system 'iso-2022-7bit-ss2 'iso-2022-jp-2)
208 210
209 (make-coding-system 211 (make-coding-system
210 'iso-2022-7 'iso2022 212 'iso-2022-7 'iso2022
211 "ISO-2022 seven-bit coding system. No single-shift or locking-shift." 213 "ISO-2022 seven-bit coding system. No single-shift or locking-shift."
212 '(charset-g0 ascii 214 '(charset-g0 ascii