+ (let ((conf
+ '(charset-g0 ascii
+ short t
+ seven t
+ mnemonic "MULE/7bit")))
+ (if (featurep 'utf-2000)
+ (list* 'ccs-priority-list
+ '(ascii
+ =jis-x0208@1983 =jis-x0208@1978
+ latin-jisx0201)
+ conf)
+ (list* 'input-charset-conversion
+ '((latin-jisx0201 ascii)
+ (japanese-jisx0208-1978 japanese-jisx0208))
+ conf))))