Speaking a selected region in Japanese (Emacs+OSX)

gistfile1.el

(defun MyTool-speech-region-Kyoko ()
  "Convert text to audible speech by /usr/bin/say of OSX."
  (interactive)
  (let ((str (concat (buffer-substring-no-properties (point) (mark)))))
    (setq str (replace-regexp-in-string "\\\\%" "percent" str))
    (setq str (replace-regexp-in-string "%\n" "" str))
    (setq str (replace-regexp-in-string "\\%[^\n]+" "" str))
    (setq str (replace-regexp-in-string "%" "" str))
    (setq str (replace-regexp-in-string "\\\\[a-zA-Z]+" " " str))
    (setq str (replace-regexp-in-string "[$_^\n()~{}|;]" " " str))
    (setq str (replace-regexp-in-string "\\ +" " " str))
    (message str)
    (if (eq (process-status "speech") 'run)
	(delete-process "speech"))
    (process-kill-without-query
     (start-process-shell-command "speech" nil 
				  "/usr/bin/say -v Kyoko" (concat "\"" str "\"" )))))