(defun chasen-yomi-region (start end)
  (interactive "r")
  (chasen-scan-region start end
		      (function (lambda (start end yomi)
				  (delete-region start end)
				  (insert yomi)))
		      "%y"))