Mercurial > hg > xemacs-beta

comparison lisp/mule/mule-coding.el @ 448:3078fd1074e8 r21-2-39

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-39
author cvs
date Mon, 13 Aug 2007 11:38:25 +0200
parents 576fb035e263
children 7039e6323819
comparison
equal deleted inserted replaced
447:4fc5f13f3bd3 448:3078fd1074e8
172 )) 172 ))
173 173
174 ;; initialize the coding categories to something semi-reasonable 174 ;; initialize the coding categories to something semi-reasonable
175 ;; so that the remaining Lisp files can contain extended characters. 175 ;; so that the remaining Lisp files can contain extended characters.
176 ;; (They will be in ISO-7 format) 176 ;; (They will be in ISO-7 format)
177 ;; #### This list needs to be synched with the ones in mule-cmds.el.
177 178
178 (set-coding-priority-list '(iso-8-2 iso-8-designate iso-8-1 179 (set-coding-priority-list '(iso-7
179 iso-7 iso-lock-shift no-conversion)) 180 no-conversion
181 ;; utf-8
182 iso-8-1
183 iso-8-2
184 iso-8-designate
185 iso-lock-shift
186 shift-jis
187 big5
188 ;; ucs-4
189 ))
180 190
181 (set-coding-category-system 'iso-7 'iso-2022-7) 191 (set-coding-category-system 'iso-7 'iso-2022-7)
182 (set-coding-category-system 'iso-8-designate 'ctext) 192 (set-coding-category-system 'iso-8-designate 'ctext)
183 (set-coding-category-system 'iso-8-1 'ctext) 193 (set-coding-category-system 'iso-8-1 'ctext)
184 (set-coding-category-system 'iso-lock-shift 'iso-2022-lock) 194 (set-coding-category-system 'iso-lock-shift 'iso-2022-lock)