Emacsで句読点を全角コンマと全角ピリオドに置き換える

もはや何番煎じか分かりませんが、自分用に関数を書いたので置いておきます。

  1. (defun my/region-replace (str newstr begin end)
  2.   "指定範囲内で置換を行う"
  3.   (goto-char begin)
  4.   (while (search-forward str end t)
  5.     (replace-match newstr)))
  6.  
  7. (defun my/replace-with-comma-and-period ()
  8.   "選択範囲内の句読点をコンマとピリオドに置き換える"
  9.   (interactive)
  10.   (let ((curpos (point))
  11.         (begin (if (region-active-p)
  12.                    (region-beginning) (point-min)))
  13.         (end (if (region-active-p)
  14.                  (region-end) nil)))
  15.     (my/region-replace "。" "." begin end)
  16.     (my/region-replace "、" "," begin end)
  17.     (goto-char curpos)))

"M-x my/replace-with-comma-and-period" を実行すればよいです1もちろんキーバインドを設定した方が楽で良い。範囲選択を行っている際はその範囲内で置換を行い、範囲選択を行っていない際はカレントバッファのすべての範囲で置換を行います。

今まで毎回"M-%"で置換してたけど多少楽になるね!

参考

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です