Diary/2025-8-6

．→。/，→、の置換

普段は，句読点には．と，を使っているのだけど，ごくたまに。と、にする必要がある．
M-x replace-stringとかで変換するのだけど，
ふと思いたって，

(defun conv-japanese-punctuation-region (start end)
  (interactive "r")
  (progn
    (replace-string-in-region "．" "。" start end)
    (replace-string-in-region "，" "、" start end)
    ))

を，ChatGPTに与えて，「このままだと動かないのだけど動くようにして」と，頼んでみたところ，

(defun conv-japanese-punctuation-region (start end)
  "Convert Japanese delimiters in region from Chinese-style to Japanese-style."
  (interactive "r")
  (save-excursion
    (save-restriction
      (narrow-to-region start end)
      (goto-char (point-min))
      (while (search-forward "．" nil t)
        (replace-match "。"))
      (goto-char (point-min))
      (while (search-forward "，" nil t)
        (replace-match "、")))))

なる回答をだしてきてくれた．で，これ，ちゃんと動く．すごい．
リージョンじゃなくてバッファを対象にする場合は？と聞くと，

(defun conv-japanese-punctuation-buffer ()
  "Convert all Chinese-style punctuation in the buffer to Japanese-style punctuation."
  (interactive)
  (save-excursion
    (goto-char (point-min))
    (while (search-forward "．" nil t)
      (replace-match "。"))
    (goto-char (point-min))
    (while (search-forward "，" nil t)
      (replace-match "、"))))

だそうで，これもちゃんと動作する．すごい．

で，いつものemacs-lisp集に追加したので，これからは簡単に変換ができるようになった．