Mercurial > hg > xemacs-beta

comparison lisp/mule/mule-coding.el @ 4299:f4c3ffe60a4f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-12-01 14:24:46 by aidan] Switch away from ISO 2022 for the ISO-8859 character sets.
author aidan
date Sat, 01 Dec 2007 14:24:52 +0000
parents eded49463f9a
children 04ec3340612e 68d1ca56cffa
comparison
equal deleted inserted replaced
4298:27150c937a22 4299:f4c3ffe60a4f
103 "Compound Text" 103 "Compound Text"
104 '(charset-g0 ascii 104 '(charset-g0 ascii
105 charset-g1 latin-iso8859-1 105 charset-g1 latin-iso8859-1
106 eol-type nil 106 eol-type nil
107 mnemonic "CText")) 107 mnemonic "CText"))
108
109 (make-coding-system
110 'iso-8859-1 'no-conversion
111 "ISO-8859-1 (Latin-1)"
112 '(eol-type nil mnemonic "Noconv"))
113 108
114 (make-coding-system 109 (make-coding-system
115 'iso-2022-8bit-ss2 'iso2022 110 'iso-2022-8bit-ss2 'iso2022
116 "ISO-2022 8-bit w/SS2" 111 "ISO-2022 8-bit w/SS2"
117 '(charset-g0 ascii 112 '(charset-g0 ascii
697 (make-8-bit-choose-category decode-table)) 692 (make-8-bit-choose-category decode-table))
698 ,(macroexpand `(loop for alias in ',aliases 693 ,(macroexpand `(loop for alias in ',aliases
699 do (define-coding-system-alias alias 694 do (define-coding-system-alias alias
700 ',name))) 695 ',name)))
701 (find-coding-system ',name))))) 696 (find-coding-system ',name)))))
697
698 ;; Ideally this would be in latin.el, but code-init.el uses it.
699 (make-8-bit-coding-system
700 'iso-8859-1
701 '() ;; No differences from Latin 1.
702 "ISO-8859-1 (Latin-1)"
703 '(mnemonic "Latin 1"
704 documentation "The most used encoding of Western Europe and the Americas."
705 aliases (iso-latin-1 latin-1)))
706