# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1122617685 0
# Node ID 8006f0bf9292e1994154dc178b75e18d431b04e2
# Parent  182221fb0f2c75dab3c93c24abeef88b720a24eb
(iso-2022-jp, iso-2022-jp-2)
(iso-2022-jp-2004): Set :suitable-for-keyboard property to 1.

diff -r 182221fb0f2c -r 8006f0bf9292 lisp/language/japanese.el
--- a/lisp/language/japanese.el	Fri Jul 29 06:14:00 2005 +0000
+++ b/lisp/language/japanese.el	Fri Jul 29 06:14:45 2005 +0000
@@ -48,7 +48,8 @@
   :flags '(short ascii-at-eol ascii-at-cntl 7-bit designation)
   :charset-list '(ascii japanese-jisx0208
 			japanese-jisx0208-1978 latin-jisx0201)
-  :mime-charset 'iso-2022-jp)
+  :mime-charset 'iso-2022-jp
+  :suitable-for-keyboard t)
 
 (define-coding-system-alias 'junet 'iso-2022-jp)
 
@@ -68,7 +69,8 @@
 			latin-jisx0201 japanese-jisx0208-1978
 			chinese-gb2312 korean-ksc5601
 			latin-iso8859-1 greek-iso8859-7)
-  :mime-charset 'iso-2022-jp-2)
+  :mime-charset 'iso-2022-jp-2
+  :suitable-for-keyboard t)
 
 (let ((map			; JIS		vs	CP932
        '((#x301C . #xFF5E)	; WAVE DASH		FULLWIDTH TILDE
@@ -162,7 +164,8 @@
 		 ;; init-at-bol)
   :charset-list '(ascii japanese-jisx0208 japanese-jisx0213.2004-1
 			japanese-jisx0213-1 japanese-jisx0213-2)
-  :mime-charset 'iso-2022-jp-2004)
+  :mime-charset 'iso-2022-jp-2004
+  :suitable-for-keyboard t)
 
 (define-coding-system-alias 'iso-2022-jp-3 'iso-2022-jp-2004)