Function: skkdic-merge-head-and-tail

skkdic-merge-head-and-tail is a byte-compiled function defined in ja-dic-utl.el.gz.

Signature

(skkdic-merge-head-and-tail HEADS TAILS POSTFIX)

Source Code

;; Defined in /usr/src/emacs/lisp/international/ja-dic-utl.el.gz
(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))
	    (while tail
	      (if (or postfix
		      (>= (length (car tail)) min-len))
		  (setq l (cons (concat (car heads) (car tail)) l)))
	      (setq tail (cdr tail)))))
      (setq heads (cdr heads)))
    l))