(define-translation-table
  'non-jisx0208-translation-table
  (eval-when-compile
    `(
,@(let (i l)
    (setq i 33)
    (while (<= i 91)
      (setq l (cons (cons (make-char 'latin-jisx0201 i)
			  (make-char 'ascii i)) l)
	    i (1+ i)))
    (setq i 93)
    (while (<= i 125)
      (setq l (cons (cons (make-char 'latin-jisx0201 i)
			  (make-char 'ascii i)) l)
	    i (1+ i)))
    l)
      )))

(setq standard-translation-table-for-decode
      (get 'non-jisx0208-translation-table 'translation-table))

(provide 'non-jisx0208)