Mercurial > emacs
changeset 88407:9ae36aa886d5
(skkdic-jisx0208-hiragana-block): Value changed.
(skkdic-lookup-key): Call encode-char instead of split-char.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Fri, 01 Mar 2002 02:08:45 +0000 |
| parents | 934ee50a6eb3 |
| children | 4135242fe433 |
| files | lisp/international/ja-dic-utl.el |
| diffstat | 1 files changed, 13 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/ja-dic-utl.el Fri Mar 01 02:08:10 2002 +0000 +++ b/lisp/international/ja-dic-utl.el Fri Mar 01 02:08:45 2002 +0000 @@ -88,7 +88,8 @@ (setq heads (cdr heads))) l)) -(defconst skkdic-jisx0208-hiragana-block (nth 1 (split-char ?$B$"(B))) +(defconst skkdic-jisx0208-hiragana-block (cons (decode-char 'unicode #x3040) + (decode-char 'unicode #x309F))) (defun skkdic-lookup-key (seq len &optional postfix prefer-noun) "Return a list of conversion string for sequence SEQ of length LEN. @@ -128,14 +129,17 @@ ;; else VEC[N] is 128. (while (< i len) (let ((ch (aref seq i)) - elts) - (if (= ch ?$B!<(B) - (aset vec i 0) - (setq elts (split-char ch)) - (if (and (eq (car elts) 'japanese-jisx0208) - (= (nth 1 elts) skkdic-jisx0208-hiragana-block)) - (aset vec i (- (nth 2 elts) 32)) - (aset vec i 128)))) + code) + (cond ((= ch ?$B!<(B) + (aset vec i 0)) + ((and (>= ch (car skkdic-jisx0208-hiragana-block)) + (<= ch (cdr skkdic-jisx0208-hiragana-block))) + (setq code (encode-char ch 'japanese-jisx0208)) + (if code + (aset vec i (- (logand code #xFF) 32)) + (aset vec i 128))) + (t + (aset vec i 128)))) (setq i (1+ i))) ;; Search OKURI-NASI entries.