>>66
(insert (pp (mapcar (lambda (name)
(cons (decode-coding-string name 'sjis) name))
(x-list-fonts "*jisx0208*"))))
で一応対応を見ることができるのですが、
日本語がsjisでunibyteになっているだけならともかく、
途中で大文字を小文字にする変換が入るので、カナが化けたりするんですよね。
(「平成角ピプッハ」て)
本当はscriptcodeに応じてフォント名のコード変換をすればいいのでしょうが…。