>>495で頂いたソースだと何度かリロードしているとどんどん名前がだぶってくる動きをして
いる（最初確認した時はだぶらなかったと思ったのですが・・・すいません）みたいなので
下記のような修正をしました。もし同じ症状が出る方がいましたら、やってみて下さい。
（変な事やってたらすいません・・・よくわかってないもので；）

(setq gikope-aa-location-alist nil)を追加しただけです。

修正前
(defun gikope-parse-aa ()
"AA データを読みこみ、parse AA data and build gikope-aa-location-alist"
(interactive)
(let (alistitem locitem mojiname start end)
(save-excursion

修正後
(defun gikope-parse-aa ()
"AA データを読みこみ、parse AA data and build gikope-aa-location-alist"
(interactive)
(setq gikope-aa-location-alist nil)
(let (alistitem locitem mojiname start end)
(save-excursion