non-jisx0208.el

   1 (define-translation-table
   2   'non-jisx0208-translation-table
   3   (eval-when-compile
   4     `(
   5 ,@(let (i l)
   6     (setq i 33)
   7     (while (<= i 91)
   8       (setq l (cons (cons (make-char 'latin-jisx0201 i)
   9                           (make-char 'ascii i)) l)
  10             i (1+ i)))
  11     (setq i 93)
  12     (while (<= i 125)
  13       (setq l (cons (cons (make-char 'latin-jisx0201 i)
  14                           (make-char 'ascii i)) l)
  15             i (1+ i)))
  16     l)
  17       )))
  18
  19 (setq standard-translation-table-for-decode
  20       (get 'non-jisx0208-translation-table 'translation-table))
  21
  22 (provide 'non-jisx0208)