;  zyoyokanzi.el
;  emacs で、常用漢字表改正に対応した編集をするコマンドファイル
;
;  V2    2012-05-07  K.Nishimura
;  V1.1  2012-05-07  K.Nishimura
;  V1    2012-04-29  K.Nishimura

;  目的： 常用漢字表の改正（2010 年）によって使えるようになった漢字などの修正
;
;  使い方： emacs で M-x load-file のあとにこのファイル名（zyoyokanzi.el）。


;  処理１： けた → 桁
;
;     　　  　ママ： 「付けた」「続けた」「見つけた」など
;　           熟語：  桁移動，桁あふれ
;
;  処理２： すべて → 全て
;
;  処理３： 必す → 必須
;
;  処理４： はん用 → 汎用
;
;  処理５： ほか → 他
;
;  処理６： わずか → 僅か
;
;  処理７： あいまい → 曖昧


; ========================= 本体 =================================
;  処理１： 「けた」→「桁」
;         まず例外を処理する。「けた（桁）」→「桁」
(beginning-of-buffer)
   (query-replace "けた（桁）" "桁" nil)
;         けた → 桁
(beginning-of-buffer)
   (query-replace "けた" "桁" nil)

;  処理２： 「すべて」→「全て」
(beginning-of-buffer)
   (query-replace "すべて" "全て" nil)

;  処理３： 「必す」→「必須」
;         まず例外を処理する。「必す（須）」→「必須」
(beginning-of-buffer)
   (query-replace "必す（須）" "必須" nil)
;         必す → 必須
(beginning-of-buffer)
   (query-replace "必す" "必須" nil)

;  処理４： 「はん用」→「汎用」
(beginning-of-buffer)
   (query-replace "はん（汎）用" "汎用" nil)

;  処理５： 「ほか」→「他」
(beginning-of-buffer)
   (query-replace "ほか" "他" nil)

;  処理６： 「わずか」→「僅か」
(beginning-of-buffer)
   (query-replace "わずか" "僅か" nil)

;  処理７： 「あいまい」→「曖昧」
(beginning-of-buffer)
   (query-replace "あいまい" "曖昧" nil)