UTF-8の「〜」(U+FF5E)と「〜」(U+301C) http://gaju.jp/diary/20091218.html

meadow3-encode.el

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; UTF-8の「〜」(U+FF5E)と「〜」(U+301C)
;; http://gaju.jp/diary/20091218.html
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defadvice utf-translate-cjk-load-tables (after my-subst-windows activate)
  (mapc
   (lambda (pair)
     (let ((uc (car pair))
           (ch (cadr pair)))
       (puthash uc ch ucs-unicode-to-mule-cjk)
       (puthash ch uc ucs-mule-cjk-to-unicode)))
   '(
     (#x301C 86327) ;; WAVE DASH
     (#xFF5E 53441) ;; FULLWIDTH TILDA
     (#x2225 53442) ;; PARALLEL TO
     (#xFF0D 53469) ;; FULLWIDTH HYPHENMINUS
     (#xFFE0 53489) ;; FULLWIDTH CENT SIGN
     (#xFFE1 53490) ;; FULLWIDTH POUND SIGN
     (#xFFE2 53580) ;; FULLWIDTH NOT SIGN
     (#xFFE4 86339) ;; FULLWIDTH BROKEN BAR
     )))

(utf-translate-cjk-set-unicode-range
 '(
   (#x00A2 . #x00A3) ;; ¢£
   (#x00A7 . #x00A8) ;; §¨
   (#x00AC . #x00AC) ;; ¬
   (#x00B0 . #x00B1) ;; °±
   (#x00B4 . #x00B4) ;; ´
   (#x00B6 . #x00B6) ;; ¶
   (#x00D7 . #x00D7) ;; ×
   (#x00F7 . #x00F7) ;; ÷
   (#x0370 . #x03FF) ;; GREEK AND COPTIC
   (#x0400 . #x04FF) ;; CYRILLIC
   (#x2000 . #x206F) ;; GENERAL PUNCTUATION
   (#x2100 . #x214F) ;; LETTERLIKE SYMBOLS
   (#x2190 . #x21FF) ;; ARROWS
   (#x2200 . #x22FF) ;; MATHEMATICAL OPERATORS
   (#x2300 . #x23FF) ;; MISCELLANEOUS TECHNICAL
   (#x2500 . #x257F) ;; BOX DRAWING
   (#x25A0 . #x25FF) ;; GEOMETRIC SHAPES
   (#x2600 . #x26FF) ;; MISCELLANEOUS SYMBOLS
   (#x2E80 . #xD7A3) ;; CJK
   (#xFF00 . #xFFEF)
   ))

(set-language-environment "Japanese") ;; 上記の設定のあとで呼ぶこと
;(set-clipboard-coding-system 'utf-16le-dos) ;; おまけ