>>486
考えてみた。
(setq skk-exclude-jisyo "~/.skk-jisyo.exclude")
(setq skk-search-excluding-word-pattern-function
;; この関数が non-nil を返したときは、その文字列は個人辞書に取り込まれない
;; KAKUTEI-WORD を引数にしてコールされるので、不要でも引数を取る必要あり
#'(lambda (kakutei-word)
(or (and skk-abbrev-mode
(save-match-data
;; SKK-HENKAN-KEY が "*" で終わるとき
(string-match "\\*$" skk-henkan-key)))
(let* ((func (lambda (w)
(if (string-match ";" w)
(substring w 0 (match-beginning 0))
w)))
(kakutei-word
(funcall func (nth skk-henkan-count skk-henkan-list)))
(excludes
(mapcar func
(skk-search-jisyo-file skk-exclude-jisyo 0 t))))
(member kakutei-word excludes)))))
skk-search-excluding-word-pattern-function にこんな感じで、
let*以降の部分を自分の既存の設定に or でくっつければいいかと。
ちなみに上の例は、skk-look を使った曖昧変換も取り込まない。

skk-exclude-jisyo に大きなものを利用するなら、
(skk-search-jisyo-file skk-exclude-jisyo 0 t) の 0 を
10000 とかにしたほうがいいですが、その場合辞書は
ソートされてる必要があります。