Mercurial > emacs
comparison lisp/international/ja-dic-cnv.el @ 49598:0d8b17d428b5
Trailing whitepace deleted.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Tue, 04 Feb 2003 13:24:35 +0000 |
| parents | 1c5996975536 |
| children | b3d9bd5b31b8 d7ddb3e565de |
comparison
equal
deleted
inserted
replaced
| 49597:e88404e8f2cf | 49598:0d8b17d428b5 |
|---|---|
| 160 (setq candidates (cdr candidates))) | 160 (setq candidates (cdr candidates))) |
| 161 (insert "\"\n")))) | 161 (insert "\"\n")))) |
| 162 (save-excursion | 162 (save-excursion |
| 163 (set-buffer buf) | 163 (set-buffer buf) |
| 164 (insert ")\n\n"))) | 164 (insert ")\n\n"))) |
| 165 | 165 |
| 166 (defconst skkdic-prefix-list '(skkdic-prefix-list)) | 166 (defconst skkdic-prefix-list '(skkdic-prefix-list)) |
| 167 | 167 |
| 168 (defun skkdic-convert-prefix (skkbuf buf) | 168 (defun skkdic-convert-prefix (skkbuf buf) |
| 169 (message "Processing PREFIX entries ...") | 169 (message "Processing PREFIX entries ...") |
| 170 (goto-char (point-min)) | 170 (goto-char (point-min)) |
| 190 (setq candidates (cdr candidates))) | 190 (setq candidates (cdr candidates))) |
| 191 (insert "\"\n"))))) | 191 (insert "\"\n"))))) |
| 192 (save-excursion | 192 (save-excursion |
| 193 (set-buffer buf) | 193 (set-buffer buf) |
| 194 (insert ")\n\n"))) | 194 (insert ")\n\n"))) |
| 195 | 195 |
| 196 ;; FROM and TO point the head and tail of "/J../J../.../". | 196 ;; FROM and TO point the head and tail of "/J../J../.../". |
| 197 (defun skkdic-get-candidate-list (from to) | 197 (defun skkdic-get-candidate-list (from to) |
| 198 (let (candidates) | 198 (let (candidates) |
| 199 (goto-char from) | 199 (goto-char from) |
| 200 (while (re-search-forward "/[^/ \n]+" to t) | 200 (while (re-search-forward "/[^/ \n]+" to t) |
| 405 | 405 |
| 406 ;; Convert okuri-nasi prefix entries. | 406 ;; Convert okuri-nasi prefix entries. |
| 407 (goto-char to) | 407 (goto-char to) |
| 408 (skkdic-convert-prefix skkbuf buf) | 408 (skkdic-convert-prefix skkbuf buf) |
| 409 | 409 |
| 410 ;; | 410 ;; |
| 411 (skkdic-collect-okuri-nasi) | 411 (skkdic-collect-okuri-nasi) |
| 412 | 412 |
| 413 ;; Convert okuri-nasi general entries. | 413 ;; Convert okuri-nasi general entries. |
| 414 (skkdic-convert-okuri-nasi skkbuf buf) | 414 (skkdic-convert-okuri-nasi skkbuf buf) |
| 415 | 415 |