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) |
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. |