# HG changeset patch # User Kenichi Handa # Date 1014948525 0 # Node ID 9ae36aa886d5e94e9f802e691806d338b3296b21 # Parent 934ee50a6eb35fbaf3dee0a19397135e962c9e82 (skkdic-jisx0208-hiragana-block): Value changed. (skkdic-lookup-key): Call encode-char instead of split-char. diff -r 934ee50a6eb3 -r 9ae36aa886d5 lisp/international/ja-dic-utl.el --- 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 ?あ))) +(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 ?ー) - (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 ?ー) + (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.