フォントの情報を取得

ELISP> (font-info (frame-parameter nil 'font))
["-apple-Bitstream_Vera_Sans_Mono-medium-normal-normal-*-14-*-*-*-m-0-iso10646-1" "BitstreamVeraSansMono-Roman" 14 17 0 0 0]

ELISP> (font-face-attributes (frame-parameter nil 'font))
(:family "Bitstream_Vera_Sans_Mono" :height 141 :weight normal :slant normal :width normal)

こんなカンジで取得はできるっぽい。これを変更(たとえば、サイズを変えるなど)して起動中のemacsに反映させるのはどうすれば良いのだろう?