以下のものを *scaratch* なりで eval すると (mapcar (lambda (f) (cons f (shell-command-to-string (format "fc-match -v '%s'|grep spacing|awk '{printf(\"%%s\",$2)}'" f)))) (font-family-list))(("fixed" . "110(i)(s)") ("nil" . "90(i)(s)") ("fixed" . "110(i)(s)") ("nil" . "90(i)(s)") ("fixed" . "110(i)(s)") ("courier" . "100(i)(s)") ("helvetica" . "") ("new century schoolbook" . "") ("symbol" . "") ("times" . "") (