162 |
(save-excursion |
(save-excursion |
163 |
(set-buffer buf) |
(set-buffer buf) |
164 |
(insert ")\n\n"))) |
(insert ")\n\n"))) |
165 |
|
|
166 |
(defconst skkdic-prefix-list '(skkdic-prefix-list)) |
(defconst skkdic-prefix-list '(skkdic-prefix-list)) |
167 |
|
|
168 |
(defun skkdic-convert-prefix (skkbuf buf) |
(defun skkdic-convert-prefix (skkbuf buf) |
192 |
(save-excursion |
(save-excursion |
193 |
(set-buffer buf) |
(set-buffer buf) |
194 |
(insert ")\n\n"))) |
(insert ")\n\n"))) |
195 |
|
|
196 |
;; FROM and TO point the head and tail of "/J../J../.../". |
;; FROM and TO point the head and tail of "/J../J../.../". |
197 |
(defun skkdic-get-candidate-list (from to) |
(defun skkdic-get-candidate-list (from to) |
198 |
(let (candidates) |
(let (candidates) |
358 |
(set-buffer buf) |
(set-buffer buf) |
359 |
(erase-buffer) |
(erase-buffer) |
360 |
(buffer-disable-undo) |
(buffer-disable-undo) |
361 |
(insert ";;; ja-dic.el --- dictionary for Japanese input method\n" |
(insert ";;; ja-dic.el --- dictionary for Japanese input method" |
362 |
|
" -*-coding: iso-2022-jp;-*-\n" |
363 |
";;\tGenerated by the command `skkdic-convert'\n" |
";;\tGenerated by the command `skkdic-convert'\n" |
364 |
";;\tDate: " (current-time-string) "\n" |
";;\tDate: " (current-time-string) "\n" |
365 |
";;\tOriginal SKK dictionary file: " |
";;\tOriginal SKK dictionary file: " |
407 |
(goto-char to) |
(goto-char to) |
408 |
(skkdic-convert-prefix skkbuf buf) |
(skkdic-convert-prefix skkbuf buf) |
409 |
|
|
410 |
;; |
;; |
411 |
(skkdic-collect-okuri-nasi) |
(skkdic-collect-okuri-nasi) |
412 |
|
|
413 |
;; Convert okuri-nasi general entries. |
;; Convert okuri-nasi general entries. |