Mercurial > emacs
comparison lisp/international/ja-dic-cnv.el @ 34626:6e98a6e86b7f
(skkdic-get-candidate-list): Fix the regexp to search for candidates.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Sat, 16 Dec 2000 00:11:37 +0000 |
parents | dad96251e889 |
children | 8f93fc285ff3 |
comparison
equal
deleted
inserted
replaced
34625:5b401d1f68e7 | 34626:6e98a6e86b7f |
---|---|
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 "/\\cj+" to t) | 200 (while (re-search-forward "/[^/ \n]+" to t) |
201 (setq candidates (cons (buffer-substring (1+ (match-beginning 0)) | 201 (setq candidates (cons (buffer-substring (1+ (match-beginning 0)) |
202 (match-end 0)) | 202 (match-end 0)) |
203 candidates))) | 203 candidates))) |
204 candidates)) | 204 candidates)) |
205 | 205 |