Navi2ch for Emacs (Part 14)
■ このスレッドは過去ログ倉庫に格納されています
0495名無しさん@お腹いっぱい。
05/02/27 20:32:53とりあえず mojidata.txt を再ロードする方法を考えた.gikope-parse-aa を下で上書きしてみて.
mojidata.txt を編集した後で,M-x gikope-parse-aa して M-x gikope とやれば更新されるような気がする.
いま時間がないからちゃんと確認してない.時間に余裕できたらもっとましな方法を考えるよ.
(defun gikope-parse-aa ()
"AA データを読みこみ、parse AA data and build gikope-aa-location-alist"
(interactive)
(let (alistitem locitem mojiname start end)
(save-excursion
(set-buffer (get-buffer-create gikope-aa-buffer))
(setq buffer-read-only nil)
(erase-buffer)
(let ((coding-system-for-read gikope-aa-file-coding))
(insert-file-contents gikope-aa-file))
(goto-char (point-min))
(setq buffer-read-only t)
(while (re-search-forward gikope-aa-begin-regex nil t)
(setq alistitem (match-string 1))
(forward-line)
(setq locitem (point))
(re-search-forward gikope-aa-end-regex)
(beginning-of-line)
(setq locitem (cons locitem (point)))
(setq alistitem (cons alistitem (list locitem)))
(add-to-list 'gikope-aa-location-alist alistitem)))))
■ このスレッドは過去ログ倉庫に格納されています