>>971
ありがとうございます。

ただ、emacs-unicod-2のEmacs上では
ucs-unicode-to-mule-cjk変数がないらしく、subst-win.elは使用できませんでした。

結局、こんなかんじで逃げることにしました。

(defun my-replace-wave-dash()
(save-excursion
(goto-char (point-min))
(while (search-forward (decode-coding-string (base64-decode-string "44Cc") 'utf-8)
nil t)
(replace-match "〜"))
))
(add-hook 'before-save-hook 'my-replace-wave-dash)

(defadvice kill-new (before my-clipboard-text-translate activate)
(ad-set-arg 0
(replace-regexp-in-string
(decode-coding-string (base64-decode-string "44Cc") 'utf-8)
"〜"
(ad-get-arg 0))))