comparison lisp/international/skkdic-utl.el @ 20736:60bf060b9ab1

(skkdic-jbytes): Variable deleted. All codes using this variable adjusted.

20735:d97c44710cac

    (?わ . ?w) (?ゐ . ?w) (?ゑ . ?w) (?を . ?w)
    (?ん . ?n)
    )
  "Alist of Okuriganas vs trailing ASCII letters in OKURI-ARI entry.")

(defconst skkdic-jbytes
  (charset-bytes 'japanese-jisx0208))

(defun skkdic-merge-head-and-tail (heads tails postfix)
  (let ((min-len (* skkdic-jbytes 2))
	l)
    (while heads
      (if (or (not postfix)
	      (>= (length (car heads)) min-len))
	  (let ((tail tails))

20736:60bf060b9ab1

    (?わ . ?w) (?ゐ . ?w) (?ゑ . ?w) (?を . ?w)
    (?ん . ?n)
    )
  "Alist of Okuriganas vs trailing ASCII letters in OKURI-ARI entry.")

(defun skkdic-merge-head-and-tail (heads tails postfix)
  (let ((min-len 2)
	l)
    (while heads
      (if (or (not postfix)
	      (>= (length (car heads)) min-len))
	  (let ((tail tails))