masterthesis.el

(defun replace-regexp-in-file (regexp to-str)
  (save-excursion
    (goto-char (point-min))
    (while (re-search-forward regexp nil t) ;; idiom
      (replace-match to-str)))
  "replace done")
(defun replace-japanese-periods-and-commas ()
  (interactive)
  (mapcar (lambda (pair)
           (replace-regexp-in-file (car pair) (cadr pair)))
        '(("。" "．") ("、" "，")))
  "replaced japanese periods and commas")
;; (gdefkey "C-c C-s" 'replace-japanese-periods-and-commas)