2003.04.25 [years ago today]
# つつじ
道の植え込みのつつじが見頃。会社の回りには真っ白なのもあったり。
# 逆変換
昨日のやつの逆変換。中国語の漢字を変換して逆変換すると日本語の漢字になっちゃうなあ。一旦Unicodeにすると区別できなくなるんだっけ?とすると日本語環境ならそういうもんなのかな。よくわかんない。
…そういうもんみたいですね。char-to-ucs通した時点で同じ数字になるし。
(defun my-entity-reference-to-char-region (beg end) (interactive "*r") (let* ((str "")) (save-restriction (narrow-to-region beg end) (setq str (buffer-string)) (while (string-match "&#\\([0-9]+\\);" str) (setq str (replace-match (char-to-string (ucs-to-char (string-to-int (match-string 1 str)))) t t str))) (save-excursion (goto-char beg) (insert str) (delete-char (- end beg)))) str))