(let ((font-size 14))
(create-fontset-from-ascii-font
(format "Ricty-%d:weight=normal:slant=normal" font-size) nil "ricty")
(set-fontset-font "fontset-ricty" 'unicode
(font-spec :family "Ricty" :size font-size) nil 'append))
(add-to-list 'default-frame-alist '(font . "fontset-ricty"))
font-size を一カ所で指定できるようにしました。