Mercurial > emacs

comparison lisp/international/mule-conf.el @ 89102:1365cbd31156

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(emacs-mule, iso-2022-7bit) (iso-2022-7bit-ss2, iso-2022-7bit-lock, iso-2022-8bit-ss2) (compound-text, ctext-no-compositions): Cancel provious change.
author Kenichi Handa <handa@m17n.org>
date Thu, 12 Sep 2002 08:37:25 +0000
parents d520353b835a
children 492be7d36b2a
comparison
equal deleted inserted replaced
89101:1002388d33b3 89102:1365cbd31156
1110 ;; Coding systems not specific to each language environment. 1110 ;; Coding systems not specific to each language environment.
1111 1111
1112 (define-coding-system 'emacs-mule 1112 (define-coding-system 'emacs-mule
1113 "Emacs 21 internal format used in buffer and string." 1113 "Emacs 21 internal format used in buffer and string."
1114 :coding-type 'emacs-mule 1114 :coding-type 'emacs-mule
1115 :charset-list 'emacs-mule
1115 :mnemonic ?M) 1116 :mnemonic ?M)
1116 1117
1117 (define-coding-system 'utf-8 1118 (define-coding-system 'utf-8
1118 "UTF-8." 1119 "UTF-8."
1119 :coding-type 'utf-8 1120 :coding-type 'utf-8
1171 1172
1172 (define-coding-system 'iso-2022-7bit 1173 (define-coding-system 'iso-2022-7bit
1173 "ISO 2022 based 7-bit encoding using only G0." 1174 "ISO 2022 based 7-bit encoding using only G0."
1174 :coding-type 'iso-2022 1175 :coding-type 'iso-2022
1175 :mnemonic ?J 1176 :mnemonic ?J
1177 :charset-list 'iso-2022
1176 :designation [(ascii t) nil nil nil] 1178 :designation [(ascii t) nil nil nil]
1177 :flags '(short ascii-at-eol ascii-at-cntl 7-bit designation composition)) 1179 :flags '(short ascii-at-eol ascii-at-cntl 7-bit designation composition))
1178 1180
1179 (define-coding-system 'iso-2022-7bit-ss2 1181 (define-coding-system 'iso-2022-7bit-ss2
1180 "ISO 2022 based 7-bit encoding using SS2 for 96-charset." 1182 "ISO 2022 based 7-bit encoding using SS2 for 96-charset."
1181 :coding-type 'iso-2022 1183 :coding-type 'iso-2022
1182 :mnemonic ?$ 1184 :mnemonic ?$
1185 :charset-list 'iso-2022
1183 :designation [(ascii 94) nil (nil 96) nil] 1186 :designation [(ascii 94) nil (nil 96) nil]
1184 :flags '(short ascii-at-eol ascii-at-cntl 7-bit 1187 :flags '(short ascii-at-eol ascii-at-cntl 7-bit
1185 designation single-shift composition)) 1188 designation single-shift composition))
1186 1189
1187 (define-coding-system 'iso-2022-7bit-lock 1190 (define-coding-system 'iso-2022-7bit-lock
1188 "ISO-2022 coding system using Locking-Shift for 96-charset." 1191 "ISO-2022 coding system using Locking-Shift for 96-charset."
1189 :coding-type 'iso-2022 1192 :coding-type 'iso-2022
1190 :mnemonic ?& 1193 :mnemonic ?&
1194 :charset-list 'iso-2022
1191 :designation [(ascii 94) (nil 96) nil nil] 1195 :designation [(ascii 94) (nil 96) nil nil]
1192 :flags '(ascii-at-eol ascii-at-cntl 7-bit 1196 :flags '(ascii-at-eol ascii-at-cntl 7-bit
1193 designation locking-shift composition)) 1197 designation locking-shift composition))
1194 1198
1195 (define-coding-system-alias 'iso-2022-int-1 'iso-2022-7bit-lock) 1199 (define-coding-system-alias 'iso-2022-int-1 'iso-2022-7bit-lock)
1217 1221
1218 (define-coding-system 'iso-2022-8bit-ss2 1222 (define-coding-system 'iso-2022-8bit-ss2
1219 "ISO 2022 based 8-bit encoding using SS2 for 96-charset." 1223 "ISO 2022 based 8-bit encoding using SS2 for 96-charset."
1220 :coding-type 'iso-2022 1224 :coding-type 'iso-2022
1221 :mnemonic ?@ 1225 :mnemonic ?@
1226 :charset-list 'iso-2022
1222 :designation [(ascii 94) nil (nil 96) nil] 1227 :designation [(ascii 94) nil (nil 96) nil]
1223 :flags '(ascii-at-eol ascii-at-cntl designation single-shift composition)) 1228 :flags '(ascii-at-eol ascii-at-cntl designation single-shift composition))
1224 1229
1225 (define-coding-system 'compound-text 1230 (define-coding-system 'compound-text
1226 "Compound text based generic encoding for decoding unknown messages. 1231 "Compound text based generic encoding for decoding unknown messages.
1227 1232
1228 This coding system does not support ICCCM Extended Segments." 1233 This coding system does not support ICCCM Extended Segments."
1229 :coding-type 'iso-2022 1234 :coding-type 'iso-2022
1230 :mnemonic ?x 1235 :mnemonic ?x
1236 :charset-list 'iso-2022
1231 :designation [(ascii 94) (latin-iso8859-1 katakana-jisx0201 96) nil nil] 1237 :designation [(ascii 94) (latin-iso8859-1 katakana-jisx0201 96) nil nil]
1232 :flags '(ascii-at-eol ascii-at-cntl 1238 :flags '(ascii-at-eol ascii-at-cntl
1233 designation locking-shift single-shift composition) 1239 designation locking-shift single-shift composition)
1234 ;; Fixme: this isn't a valid MIME charset and has to be 1240 ;; Fixme: this isn't a valid MIME charset and has to be
1235 ;; special-cased elsewhere -- fx 1241 ;; special-cased elsewhere -- fx
1247 "Compound text based generic encoding for decoding unknown messages. 1253 "Compound text based generic encoding for decoding unknown messages.
1248 1254
1249 Like `compound-text', but does not produce escape sequences for compositions." 1255 Like `compound-text', but does not produce escape sequences for compositions."
1250 :coding-type 'iso-2022 1256 :coding-type 'iso-2022
1251 :mnemonic ?x 1257 :mnemonic ?x
1258 :charset-list 'iso-2022
1252 :designation [(ascii 94) (latin-iso8859-1 katakana-jisx0201 96) nil nil] 1259 :designation [(ascii 94) (latin-iso8859-1 katakana-jisx0201 96) nil nil]
1253 :flags '(ascii-at-eol ascii-at-cntl 1260 :flags '(ascii-at-eol ascii-at-cntl
1254 designation locking-shift single-shift)) 1261 designation locking-shift single-shift))
1255 1262
1256 (define-coding-system 'compound-text-with-extensions 1263 (define-coding-system 'compound-text-with-extensions