Fix improper Japanese number usages

fix-japanese-number-usages.el

(defun fix-japanese-number-usages ()
  "Fix improper japanese number usages like １つ and 2つ."
  (interactive)
  (require 'japan-util)
  (require 'cl)
  (let ((from-regexp "\\([1-9１２３４５６７８９]+\\)[ \n\r\t]*つ")
        (to-regexp "\\,(replace-digit-to-japanese \\1)つ")
        (japanese-numbers (list "零" "一" "二" "三" "四" "五" "六" "七" "八" "九" "十")))
    (flet ((query-replace-read-from
            (prompt regexp-flag)
            from-regexp)
           (query-replace-read-to
            (from prompt regexp-flag)
            (query-replace-compile-replacement to-regexp regexp-flag))
           (replace-digit-to-japanese
            (digit-string)
            (nth (string-to-number (japanese-hankaku digit-string t)) japanese-numbers)))
      (call-interactively 'query-replace-regexp))))