aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKenichi Handa1997-06-18 12:55:14 +0000
committerKenichi Handa1997-06-18 12:55:14 +0000
commit2792ce1648a24401678c4d7d15b8948bcf076689 (patch)
tree1d21d4860776c8c96220cdfb145e7039f53a1fce
parentd0b9c3ab1f808b40575f514b1530e71b19e70a1e (diff)
downloademacs-2792ce1648a24401678c4d7d15b8948bcf076689.tar.gz
emacs-2792ce1648a24401678c4d7d15b8948bcf076689.zip
Change mnemonic letters for iso-2022-7bit-ss2 and
iso-2022-7bit-lock. Set coding-category-iso-8-2 to japanese-iso-8bit.
-rw-r--r--lisp/international/mule-conf.el10
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/international/mule-conf.el b/lisp/international/mule-conf.el
index 442232105a6..448b5890c6e 100644
--- a/lisp/international/mule-conf.el
+++ b/lisp/international/mule-conf.el
@@ -244,16 +244,16 @@
244 short ascii-eol ascii-cntl seven)) 244 short ascii-eol ascii-cntl seven))
245 245
246(make-coding-system 246(make-coding-system
247 'iso-2022-7bit-ss2 2 ?< 247 'iso-2022-7bit-ss2 2 ?$
248 "ISO 2022 based 7-bit encoding using SS2 for 96-charset" 248 "ISO 2022 based 7-bit encoding using SS2 for 96-charset"
249 '((ascii t) nil t nil 249 '((ascii t) nil t nil
250 short ascii-eol ascii-cntl seven nil single-shift)) 250 short ascii-eol ascii-cntl seven nil single-shift))
251 251
252(make-coding-system 252(make-coding-system
253 'iso-2022-7bit-lock 2 ?> 253 'iso-2022-7bit-lock 2 ?&
254 "ISO-2022 coding system using Locking-Shift for 96-charset" 254 "ISO-2022 coding system using Locking-Shift for 96-charset"
255 '((ascii t) t nil nil 255 '((ascii t) t nil nil
256 nil ascii-eol ascii-cntl locking-shift)) 256 nil ascii-eol ascii-cntl seven locking-shift))
257 257
258(define-coding-system-alias 'iso-2022-7bit-lock 'iso-2022-int-1) 258(define-coding-system-alias 'iso-2022-7bit-lock 'iso-2022-int-1)
259 259
@@ -293,14 +293,14 @@
293 293
294;; This setting is just to read an Emacs Lisp source files which 294;; This setting is just to read an Emacs Lisp source files which
295;; contain multilingual text while dumping Emacs. More appropriate 295;; contain multilingual text while dumping Emacs. More appropriate
296;; values are set by the command `setup-language-environment' for each 296;; values are set by the command `set-language-environment' for each
297;; language environment. 297;; language environment.
298 298
299(setq coding-category-emacs-mule 'emacs-mule 299(setq coding-category-emacs-mule 'emacs-mule
300 coding-category-sjis 'japanese-shift-jis 300 coding-category-sjis 'japanese-shift-jis
301 coding-category-iso-7 'iso-2022-7bit 301 coding-category-iso-7 'iso-2022-7bit
302 coding-category-iso-8-1 'iso-latin-1 302 coding-category-iso-8-1 'iso-latin-1
303 coding-category-iso-8-2 'iso-latin-1 303 coding-category-iso-8-2 'japanese-iso-8bit
304 coding-category-iso-else 'iso-2022-7bit-lock 304 coding-category-iso-else 'iso-2022-7bit-lock
305 coding-category-big5 'chinese-big5 305 coding-category-big5 'chinese-big5
306 coding-category-binary 'no-conversion) 306 coding-category-binary 'no-conversion)