Mercurial > emacs
comparison lisp/international/skkdic-utl.el @ 20736:60bf060b9ab1
(skkdic-jbytes): Variable deleted.
All codes using this variable adjusted.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Thu, 22 Jan 1998 01:42:20 +0000 |
parents | d290e793b965 |
children |
comparison
equal
deleted
inserted
replaced
20735:d97c44710cac | 20736:60bf060b9ab1 |
---|---|
69 (?わ . ?w) (?ゐ . ?w) (?ゑ . ?w) (?を . ?w) | 69 (?わ . ?w) (?ゐ . ?w) (?ゑ . ?w) (?を . ?w) |
70 (?ん . ?n) | 70 (?ん . ?n) |
71 ) | 71 ) |
72 "Alist of Okuriganas vs trailing ASCII letters in OKURI-ARI entry.") | 72 "Alist of Okuriganas vs trailing ASCII letters in OKURI-ARI entry.") |
73 | 73 |
74 (defconst skkdic-jbytes | |
75 (charset-bytes 'japanese-jisx0208)) | |
76 | |
77 (defun skkdic-merge-head-and-tail (heads tails postfix) | 74 (defun skkdic-merge-head-and-tail (heads tails postfix) |
78 (let ((min-len (* skkdic-jbytes 2)) | 75 (let ((min-len 2) |
79 l) | 76 l) |
80 (while heads | 77 (while heads |
81 (if (or (not postfix) | 78 (if (or (not postfix) |
82 (>= (length (car heads)) min-len)) | 79 (>= (length (car heads)) min-len)) |
83 (let ((tail tails)) | 80 (let ((tail tails)) |