local-replace-all-punctuations.el

;; 保存の度に「、」「。」を「，」「．」に置換する
;; fork of: http://xr0038tech.hatenadiary.jp/entry/2014/05/06/182956
(defun local-replace-all-punctuations ()
    "Replace all \"。\" with \"．\""
    (interactive)
    (when (derived-mode-p 'yatex-mode)
      (save-excursion
        (beginning-of-buffer)
        (while (re-search-forward "。" nil t)
            (replace-match "．")
        (beginning-of-buffer)
        (while (re-search-forward "、" nil t)
            (replace-match "，"))))))
(add-hook 'before-save-hook 'local-replace-all-punctuations)